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INFORMATICA BASICA 


EVALUACION DE ORDENADORES 


| Evaluación 

8 del Hardware 
NTES de hablar de es- 
pecificaciones técni- 
cas vamos a aclarar 
una serie de concep- 
tos básicos a los que 


haremos referencia 
maás adelante. 


Hardware 


Se entiende por hardware el conjunto 
de componentes físicos que constituyen 
el ordenador. En anteriores capítulos he- 
mos hecho una definición de ellos; sin 
embargo, vamos a recordarlos: 


Hardware 


Circultería 
física 


Sist. operativo 
lenguajes... 
Soporte técnico 


Documentación 
mantenimiento 


LA 


[A No sólo hay que sopesar en el análisis de 


un ordenador su estructura física; las posi- 
bllidades de programación y documentación 
también son decisivas. 


El procesador. Es el elemento base de 
la parte física del ordenador. Su función 
es la de procesar los datos, para lo cual 
debe estar conectado, por un lado, a los 
periféricos de entrada/salida, y por otro, 
a la memoria de masa, los cuales se en- 


cargan de proporcionar al procesador la 
información a tratar. 

La memoria principal. Su función es al- 
macenar la información que produce el 
procesador al ir desarrollando las instruc- 
ciones de su programa. Esta información 
se podrá ir almacenando en zonas de al- 
macenamiento permanente (memoria 
de masa) o bien ser borrada, al ejecutar- 
se un nuevo programa. 

Memorlas de masa. Sirven fundamen- 
talmente para almacenar: 


— Ficheros de usuario. 
— Los programas de aplicaciones del 
usuario. 


El almacenamiento se puede realizar 
en cualquier soporte (cinta, disco, dis- 
quete, casete), pero se usa el disco pre- 
ferentemente porque es más rápido que 
los anteriores. 

A continuación se incluye un cuestio- 
nario de datos técnicos y económicos 
cuya recomendación se hace a los usua- 
rios a la hora de requerir información téc- 
nica de los constructores. 


1. Para la unidad central de proceso 


— Longitud de la palabra y de la Ins- 
trucción. 

— Características del repertorio de 
instrucciones. 

— Descripción del sistema de protec- 
ción de memoria. 

— Descripción del sistema de direc- 
cionamiento. 

— Descripción del sistema de interrup- 
ciones. 


2. Para la memoria principal 


— Capacidad propuesta. 
— Capacidad máxima. 
— Tipo de construcción. 
— Corrección de errores. 


3. Unidades de discos 


— Capacidad por “dispack” en bytes. 
— Velocidad de transferencia. 
— Tiempo medio de acceso. 
— Expresión de si puede servir como 
soporte del sistema operativo. 


RANURA DE ACCESO 
DE LA CABEZA 


DE 12 A 16 SECTORES 
PISTAS 


lA Tanto la capacidad de almacenamiento 
en “dls-pack” como las características de 
los disquetes utilizados son puntos importantes a 
tener en cuenta a la hora de elegir un sistema. 


4. Pantallas 


Tamaño de la pantalla. 
Capacidad de la pantalla. 
Número de caracteres. 

Distintas intensidades de ilumina- 
n de pantalla. 


31111 


O Evaluación del software 


Software 


El software lo constituyen los elementos 
lógicos, frente al hadware, que lo forman 
los dispositivos físicos que conforman el 
ordenador. A la hora de comprar un or- 
denador, una elección adecuada del 
software es esencial para el buen apro- 
vechamiento del equipo. La decisión 
vendrá influenciada, por un lado, por el 
software de base, y por otro, por el soft- 
ware de aplicaciones disponibles para 
el sistema. 


Sistema operativo. Es el soporte básico 
que permite extraer las posibilidades del 
hardware y hacerlas asequibles al pro- 
aramador. El sistema operativo lo consti- 
tuyen un conjunto de reglas establecidas 
en un ordenador para su correcta uliliza- 
ción. El sistema operativo debe asegurar 
la carga, supervisión y ejecución de los 
programas, el control de las operaciones 
de entrada/salida, la asignación de me- 
moria, detección y corrección de erro- 
res, etc. Los sistemas operativos pueden 


¡A 
ES 


trabajar en “batch” —ejecución de una 
o más tareas secuencialmente con ali- 
mentación previa de todos los datos—, 
en modo “interactivo” —que permite la 
entrada de datos durante la ejecución 
del proceso— en “tiempo real” —me- 
diante el cual el sistema responde a las 
demandas externas según un concepto 
de prioridades— o en “tiempo comparli- 
do” —muchos usuarios pueden acceder 
al sistema simultáneamente y compartir 
todos sus recursos (memoria, ficheros, 
dispositivos...). 


Lenguajes de programación. Son las 
herramientas que permiten elaborar los 
programas ejecutables por el procesa- 
dor. Estos programas pueden formar par- 
te de las aplicaciones de los usuarios o 
bien del sistema operativo. 

Si se trata de lenguajes orientados al 
sistema operativo, éstos serán de bajo ni- 
vel y suponen una rápida y fácil ejecu- 
ción. Si se trata de lenguajes orientados 
al usuario, conocidos como lenguajes de 
alto nivel, suponen un potente desarrollo 
y una mayor facilidad de utilización para 
el programador. 

El ensamblador es un lenguaje orienta- 
do a la máquina y es Importante para la 
preparación de otros programas. Se escri- 
be en un formato simplificado y utiliza có- 
digos nemotécnicos y direcciones de 
operandos simbólicas, produciendo un 
programa listo para su ejecución, una 
vez que las direcciones simbólicas hayan 


sido convertidas en otras de máquina, 
que son las únicas que el ordenador en- 
tiende. 

En cuanto a los lenguajes orientados al 
usuario, deben incluir su correspondien- 
te compilador, que es quien se encarga 
de traducir cada instrucción a lenguaje 
máquina. La adopción de uno o más len- 
guajes lleva consigo no sólo aumento de 
coste de ellos, sino tamblén de los com- 
piladores para cada uno. Los lenguajes 
simbólicos más conocidos son: destina- 
dos a gestión, como el RPG o el COBOL; 
otros de carácter clentífico, como el FOR- 
TRAN y el ALGOL, y otros de carácter ge- 
neral, como el BASIC. 

Por último, es muy Importante considerar 
también los programas de aplicación 
ofrecidos por el suministrador, tales 
como los “sorts” y los de mantenimiento 
de ficheros, y las aplicaciones estándar 
como: bases de datos, tratamiento de 


textos, hojas electrónicas, aplicaciones 
gráficas, etc. 


O Cuestionario de software 


1. Sistemas operativos 


— Tipo de sistema operativo. 

— Descripción de gestores: de entra- 
das/salidas, de archivos, de sistemas de 
memoria virtual, de multiprogramación. 


2. Lenguajes 


— Lenguajes admisibles por la máquina. 
— Versión de los lenguajes ofertados. 
— Especificaciones a las que responde. 


pay” 
Vblbay” 


MHIS9-AXMAI 


IN La elección del lenguaje apropiado facili- 
=3 tará la resolución de los problemas. 


3, Rutinas de utilidad y lenguajes 
de aplicación 


— Tipo de rutinas de utilidad y funcio- 
nes que cumple. 

— Tipos de aplicaciones que se ofer- 
tan con el sistema. 

— Cantidad de memoria necesaria. 


Q Otros aspectos a considerar 


1. Fecha de aparición en el mercado 


Indica la antigúedad del equipo, y 
como consecuencia, la vida que poten- 


cialmente le resta. Conviene fijarse que 
la antigúedad del sistema no sea supe- 
rior a cuatro años. El usuario que adquie- 
ra un ordenador debe contar con que le 
deberá ser útil durante unos diez años, 
para lo cual deberá considerar deteni- 
damente el tiempo de permanencia en 
el mercado. 


2. Asistencia técnica de sistemas 


Aunque el compromiso en los minis y 
micros no es tanto como el que se pue- 
de alcanzar en los grandes sistemas, su 
necesidad es importante igualmente. Los 
constructores están obligados a prestar 
un soporte de sistemas para implantar el 
software estándar. El usuario no debe 
abonar nada por el servicio, el cual no 
debe ser deducido del total de ayuda 
técnica que el constructor se comprome- 
ta a facilitar gratuitamente. 


(A Compromiso de mantenimiento: no todos 
los constructores lo asumen por igual, 


3. Documentación 


El usuario debe contar siempre con una 
completa biblioteca de documentación 
referente al ordenador y al sistema ope- 
rativo que utilice, Antes de firmar ningún 
contrato, el usuario debe conocer el cos- 
te de la documentación necesaria para 
la completa utilización de los recursos de 
su sistema. 


Descripción 


[MM de las 


instrucciones 


NA vez vista la estruc- 
tura general de la 
CPU y sus modos de 
direccionamiento en- 
tremos ahora en el 
estudio detallado de 
las Instrucciones dis- 
ponibles por el 2-80. 


En el capítulo trataremos las instruccio- 
nes que versan sobre los movimientos de 
datos en memoria y registros. Es uno de 
los tipos de instrucciones más utilizados 
por los ordenadores, siendo el Z-80 uno 
de los microprocesadores más versátiles 
en el manejo de este tipo de instruccio- 
nes. 


mm Movimientos de 8 y 16 bits 


Estas Instrucciones permiten copiar un 
dato de 8 ó 16 bits desde una posición 
de memoria, o de un registro, a otra po- 
sición de memoria, u otro registro. 

Esta instrucción puede utilizarse con los 
diferentes tipos de direccionamiento ex- 
plicados en el apartado anterior. 

El formato de este tipo de instrucciones 
es el siguiente: 


MAQUINA 2-80 


SPECTRUM, AMSTRAD, MSX 


LD | 4." OPERANDO 2.2 OPERANDO 


lA Fig. 1. 


LD (de LoaD en Inglés) significa cargar 
un dato. 

El primer operando indica el destino 
donde se ha de cargar el dato que indi- 
ca el segundo operando. Por tanto, el prl- 
mer operando puede ser un registro o 
una dirección de memoria, ambos de 8 
o de 16 blis, y el segundo puede ser un 
número binario, el contenido de un regls- 
tro o el contenido de una dirección de 
memoria (de 8 o de 16 bits). Como pue- 
de verse en la tabla adjunta, debe tener- 
se bien claro que cuando se utiliza un 
dato de 16 bits, éste ocupa dos posicio- 
nes de memoria (bytes), y al dar una sola 
dirección, nos referimos a esa posición 
de memoria y a la siguiente (el Z-80 lo en- 
tiende así). En el caso de registros de 16 
bits, nos referimos a la agrupación de dos 
registros de 8 bits, de la forma estándar, 
es decir, AF, BC, DE y HL, o de algún regis- 
tro de 16 bits, como el puntero del stock 
(SP). 

En el caso del Z-80 (al contrario de 
otros microprocesadores como el 6502), 
son prácticamente posibles todas las 
combinaciones. En la tabla adjunta pue- 
den verse todas ellas: 


Instrucciones de movimiento de bloques 


Código Indicadores 
mnemotécnico | Operación simbólica H 


DE+HL 

AF+AF' 

BC+BC' 

DE+=DE' 

HL+HL' 
EX (SP)HL | H+(SP+1) 
L+>(SP) 
IXu*(SP+1) 
IX. +(SP) 
IYu+(SP+1) 
1Y (SP) 


EX (SP), 1X 


EX (SP), IY 


LDI (DE)=—(HL) 


(DE)=(HL) 

DE+-—DE+1 

HL" HL+1 

BC=-BC-1 

Repetir hasta que 
BC=0 


(DE)—(HL) 
DE+DE-1 
HL-HL-1 
BC+=-BC=1 


(DE)=-(HL) 


Repetir hasta que 
A=(HL) o BC=0 


Repetir hasta que 
A=(HL) o BC=0 


11 101 011 EB 
00 001 000 08 
11 011 001 D9 Intercambio del 

grupo de regis- 
tros con el gru- 
po alternativo 

100 011 E3 


11 011 101 DD 
11 100 011 E3 
11 111 101 FD 
11 100 011 E3 


11 101 101 ED 
10 100 000 AO 


Carga (HL) en 
(DE), incremen- 
ta HL y DE y 
disminuye el 
contador BC 

Si BCx0 

Si BC=0 


11 101 101 ED 
10 110 000 BO 


11 101 101 ED 
10 101 000 A8 


11 101 101 ED 
10 111 000 B8 


11 101 101 ED 
10 100 001 Al 


11 101 101 ED 


10 110 001 Bl 


11 101 101 ED 
10 101 001 A9 


11 101 101 ED 


10 111 001 B9 


NOTAS: O P/V a 0 si el resultado de BC-1 es 0: P/V a 1 en caso contrario. O P/V a 0 si se ha comple- 
tado el recorrido; P/V a 1 en caso contrario. VO Z a 1 si A = (HL); Z a 0 en caso contrario. 


lA Flg. 2. 


En este tipo de tablas, la primera co- 
lumna indica la forma de escribir la ins- 
trucción en lenguaje ensamblador. En la 
segunda se explica simbóllcamente su 
forma de operar. La tercera indica los 
cambios que se producirán en el registro 
de flags al ejecutar la instrucción. La si- 
guiente indica la traducción a hexadeci- 
mal de las mismas. Y las demás indican 
otros parámetros de interés. 

Como es de suponer, los paréntesis in- 
dican direccionamiento indirecto, y 
cuando a un dato se le suma IX o IY, in- 


dica indexación, como ya se explicó an- 
terlormente. 
Veamos esto con unos ejemplos: 


] LO (BC C), A 


Carga en la posición de memoria cuya 
dirección está en la dirección BC (2 
Bytes = 16 bits = 1 dirección), el conteni- 
do del acumulador. 


2 D (IY+d),n 


Carga en la dirección de memoria que 
se encuentra en otra posición resultante 


de la suma del contenido del registro ín- 
dice lY, con una dirección numérica (re- 
presentada por d), el valor n, por ejem- 
plo: 


WiS71FARY 20 
VFTIITAD) DL 


Carga en la dirección (IY+$3FAB) el nú- 
mero de 8 bits 3C. Es decir, en el byte 
IY+$3FAB y en el siguiente se encuentra 
la dirección donde cargar el dato. 


3. Ahora con 16 bits: 


ny A '$3A 1 2: E 
LD (nnm),(dd) como LD($3A18),( 


La instrucción carga en la tii de 
memoria cuya dirección se encuentra en 
las direcciones nn y nn+1, el dato cuya 
dirección se encuentra en la direc- 
ción dd. 


¡O Intercambios entre registros 


El Z-80 dispone de algunas instruccio- 
nes que permiten intercambiar los conte- 


nidos de algunos registros. Intercambiar 
no es lo mismo que cargar, ya que al car- 
gar los dos registros implicados acaban 
con el mismo dato, mientras que en los 
intercambios sólo se les cambia de sitio. 


Las instrucciones son las siguientes: 


— EX DE,HL: Intercambia el contenido 
de los registros DE y HL. 


— EX AF,AF': Cambia el registro AF con 
el equivalente del juego de registros 
complementarios. 


— EXX: Esta instrucción cambia el res- 
to de los registros con los del juego com- 
plementario. 


Existen, además, otras instrucciones 
para intercambiar con el contenido de la 
pila del sistema, o stack, pero éstas se 
verán más adelante. 


Instrucciones de movimiento de 8 bits 


Indicadores 
Y 


Código 
mnemotécnico| Operación simbólica 


rr 
ren 


A r-(HL) 
LD r,(IX+d) | r-(1X+d) 


LD r,1Y+d) | r+(1Y+d) 


LD (HL)r | (HL)=r 
LD (IX+d)r | (1X+d)=r 


LD (IY+d),r | (1Y+d)-r 


LD (HL),n (HL)=n 


LD (IX+d),n | (1IX+d)=-n 
LD (IY+d),n | (IY+d)—n 


A+(BC) 
A+—(DE) 
A—(nn) 


LD (nn), A 


LD A,l 1X.0 X IFF 
LD A,R 1X0XIFF 
LD LA .xox o 


LDR,A Xoxk » 


lA Fig. 3. 


10 5r 
011 101 DD 
10 r 
111 101 FD 
10 r 
“do 
110 110 36 
“n= 
011 101 DD 
110 110 36 
“do 
py» 
111 101 FD 
00 110 110 36 
ei 
-p> 
00 001 010 04 
00 011 010 14 
00 111 010 34 
-.> 
en 
00 000 010 02 
00 010 010 12 
00 110 010 32 


NOTAS: r,r' representan cualquiera de los regstros A, B, C, D, E, H, L. IFF significa que el contenido (IFF) 
de la báscula de habilitación de interrupciones se carga en P/V. Para los diferentes símbolos que 
se emplean véase la tabla que figura al final del apéndice. 


Instrucciones de movimiento de 16 blts 


Código 


Indicadores 
mnemotécnico | Operación simbólica H 


LD dd,nn dd+—nn 


LD 1X,nn 1X—nn 


LD HL, (nn) H-—(nn+1) 


L+“(nn) 
LD dd,(nn) ddu+(nn+1) 
dd, (nn) 


LD 1X,(nn) IXu+ (mn+ 1) 


1X, + (nn) 


LD 1Y (nn) IYn+(nn+1) 


IY,—(nn) 


LD (nn), HL (nn+ 1)-H 


(nn) L 
LD (nn),(dd) | (nn +1)=ddy 
(on)-dd, 


LD (nm), 1X (nn+1)—1Xu 


(nn) IX1 


LD (nn), 1Y (nn+1)-IY 4 


(nn) +IY, 


LD SP,HL 
LD SP,IX 


SP=-HL 
SP=1X 


LD SP,IY SP+-1Y 


Códigos N.?* del N.?” de 
P/V N C| 76 543 210 Hex | bytes | ciclos M| estados T| Comentarios 


00 dd0 001 


> 


-n> 
11 011 101 DD 
00 100 001 21 
ep 
-n> 
11 111 101 FD 
00 100 001 21 
-n- 
ep 
00 101 010 24 
-p> 
-n> 
11 101 101 ED 
01 ddi 011 
-n> 
y 
11 011 101 DD 
00 101 010 24 
-p> 
“po 
1 111 101 FD 
00 101 010 2A 
en 
-n=> 
00 100 010 22 
po 
-p> 
11 101 101 ED 
01 dd0 011 


—pn> 


po 
+ 111 011 101 DD 
00 100 010 22 


ep 
-p> 
11 111 101 FD 
00 100 010 22 
—y- 
-.n> 
11 111 001 F9 
11 011 101 DD 
11 111 001 F9 
11 111 101 FD 
11 111 001 F9 


NOTAS: dd es cualquiera de los pares de registros BC, DE, HL, SP. qq es cualquiera de los pares de 
registros AF, BC, DE, HL. (par), y (par), se refieren al byte alto y al byte bajo del par; por ejemplo, 


BC,=C, AF, =A. 


2 Transferencia de bloques 


Este conjunto de instrucciones permite 
mover bloques de memoria. Su utilidad 
es muy grande para implementar instruc- 
ciones tales como el tratamiento de tiras 
de caracteres (STRINGS). 


— LDI: Mueve el contenido de la posi- 
ción indicada por DE a la dirección indi- 
cada por HL. Después incrementa en uno 
los contenidos de DE y HL, con lo que pre- 
para para la ejecución de la siguiente 
instrucción. Además, decrementa BC en 
una unidad. 


— LDD: Es idéntica a la anterior, pero 
con la diferencia de que decrementa en 
una unidad los contenidos de DE y HL. 


— LDIR: Esta instrucción ejecuta repelii- 
damente la instrucción LDI hasta que el 
contenido de BC se hace 0. De esta for- 
ma puede moverse una gran cantidad 
de datos con una sola Instrucción. 


— LDDR: Esta es como la anterior, sólo 
que aqui la ejecución repetida es de la 


instrucción LDD, también hasta que BC 
llega a 0. 


'D Búsqueda de bloques 


Este conjunto de instrucciones permite 
buscar un determinado carácter dentro 
de un bloque. El carácter a buscar debe 
estar previamente en el acumulador (A). 


— CPI: Compara el contenido del acu- 
mulador con el contenido de la direc- 
ción Indicada por HL. Después incremen- 
ta HL en 1 y decrementa BC en uno. 


— CPD: Es idéntica a la CPI, con la par- 
ticularidad de que decrementa en una 
unidad HL. 


— CPIR: Ejecuta repetidamente una 
instrucción CPI hasta que el contenido 
de HL es idéntico al acumulador o BC lle- 
ga a cero. De esta forma puede buscar- 
se dentro de un bloque un determinado 
dato. 


— CPDR: Es igual que la anterior, pero 
con la ejecución repetida de la instruc- 
ción CPD. 


lO Programa: 


Organo 
electrónico 


L programa que apa- 
rece a continuación 
es un órgano electró- 
nico (computariza- 
do) para el SPEC- 
TRUM. Poco hay que 
decir sobre el progra- 

e ma aparte de que 
está escrito en códiga máquina y de que 
nos puede permitir el interpretar, me- 
diante el teclado de nuestro ordenador, 
todas las melodías que nosotros quera- 
mos. : 

Sólo hay que llamar la atención sobre 
algunas líneas. El programa utiliza tres 
caracteres definidos. Las líneas en las 
cuales se encuentran dichos caracteres 
son la 60 y la 90. En estas líneas todos los 
caracteres que aparecen después de 
las comillas de la sentencia PRINT hay 
que escribirlos en modo GRAPHICS. El 
modo GRAPHICS se consigue pulsando a 
la vez las teclas CAPS SHIFT y el nueve (9). 
Una vez hecho esto, el cursor se nos apa- 
recerá como una G parpadeante. Cuan- 
do tengamos el cursor en modo GRAP- 
HICS, sólo tenemos que pulsar la tecla 
que corresponda según el programa. 
Aunque el carácter que aparezca por 
pantalla nos resulte extraño, no tenemos 
que preocuparnos, ése es el carácter 
que tlene que salir. 

Una vez que el programa esté introdu- 
cido en la memoria y todas las líneas 
DATA estén correctamente escritas, tras 
hacer RUN, la pantalla del ordenador se 
oscurecerá. Cuando esto ocurra no tle- 
nes por qué preocuparte, el ordenador 
está cargando todo el código máquina 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


en su memoria. Una vez que esté carga- 
do todo el código máquina, nos apare- 
cerá el teclado de un piano en la panta- 
lla. Este es el momento de empezar a uti- 
lizar el programa. 


Las teclas que puedes utilizar para to- 
car música son las siguientes: 


A-DO 

W - DO sostenido 
S - RE 

E - Re sostenido 
D - MI 

F- FA 

T - FA sostenido 
G - SOL 

Y - SOL sostenido 
H- LA 

U-LA sostenido 
J- SÍ 

K - DO (Una octava más arriba) 


Cuando te canses de tocar el órgano 
sólo tienes que pulsar la tecla SPACE 
para volver al BASIC. 


1 REM eSASlSSSdlSld lalalala jojojojolok 

2 REM *(c)Ed. Siglo Culturalx* 

3 REM *(c)1987 x 

4 REM saalololO dolo lolo lo lolo lodololok lok 

5 REM 

10 BORDER 1: PAPER 1: 
LEAR 39999 

20 GO SUB 2000: REM COLOCA LA 
SUBRUTINA EN CM 

30 GO SUB 8000: REM UDG 

40 REM DIBUJO DEL TECLADO 


INK 7: C 


50 FOR I=8 TO 12 

60 PRINT AT 1,4;"C 88 88 BC 88 
88 88 BC B” 

70 NEXT I 

80 FOR I=13 TO 15 

90 PRINT AT 1,4;"C BC BC BC BC 

BC BC BC B” 

100 NEXT I 

110 PLOT 32,111: DRAW 191,0 

120 PLOT 32,48: DRAW 191,0 

130 PRINT AT 0,4;"++ORGANO ELEC 
TRONICO++" 

140 PRINT AT 14,5;"A";AT 14,8;” 
S";AT 14,11;"D";AT 14,14;"F";AT 
14,17;"G";AT 14,20;"H";AT 14,23; 
"J";AT 14,26;"K" 

150 PRINT INVERSE 1;AT 11,6;"W 
AA dd EAT dido AT VE 
PP de: y lol Ta 18 Ss e 

160 PRINT AT 21,0;" ESPACIO- 
VUELVE A BASIC 3 

200 RANDOMIZE USR 40000 

210 PAUSE O 

220 STOP 
8000 REM UDGS 
8010 FOR I=0 TO 7 
8020 POKE I+USR "A",129 
8030 POKE I+USR "B”,1 
8040 POKE I+USR "C”",128 
8050 NEXT I 
8060 RETURN 
9000 REM CARGA LAS LINEAS DATA 
9005 LET control=0 
9010 FOR I=40000 TO 40341 
9020 READ A: POKE I1,A: LET CONTR 
OL=CONTROL+A 
9030 NEXT 1 
9040 IF CONTROL<>25879 THEN PRI 


NT "ERROR EN LOS DATAS: REVISE LA 
S LINEAS DESDE LA 9200 HASTA L 
A 9540": STOP 

9050 RETURN 

9200 DATA 243,62,13,50,24,157,62 
,127,219,254 

9210 DATA 31,48,42,205,158,156,5 
8,24,157,254 

9220 DATA 13,40,18,185,40,24,205 
,121,156,121 

9230 DATA 254,13,32,10,50,24, 157 
,24,223,121 

9240 DATA 254,13,40,218,50,24,15 
7,205,121,156 

9250 DATA 205,216,156,24,207,251 
,201,58,24, 157 

9260 DATA 87,130,130,95,22,0,33, 
25,157, 25 

9270 DATA 126,35,94,35,86,38,89, 
111,126, 238 

9280 DATA 15,119,26,1867,200, 133, 
111,126,238,15 

9290 DATA 119,19,24,244,14,0,62, 
253, 219,254 

9300 DATA 6,5,205,210, 156,208, 62 
,191,219,254 , 

9310 DATA 31,31,6,3,205,210,158, 
208, 62,251 

9320 DATA 219,254,31,6,2,205,210 
,156,208, 31 


2330 DATA 31,208,12,62,223,219,2 
54,31,31,31 

9340 DATA 6,2,205,210,156,201, 31 
,208,12,16 

9350 DATA 251,201,58,24,157,33,2 
41,156,6,0 

9360 DATA 79,9,9,9,94,35,86,35,1 
10, 38 

9370 DATA 0,235,205,181,3,243,20 
1,106,6,5 

9380 DATA 179,5,5,17,5,5,198, 4,6 
,61 

9390 DATA 4,7,37,3,10,87,3,9,196 
,3 

9400 DATA 8,12,6,5,96,5,6,128, 4, 
7 

9410 DATA 140,3,9,255,3,8,0,4,64 
,» 157 

9420 DATA 8,93,157,11,107,157,13 
,64,157,17 

9430 DATA 93,157,25,126,157,23,1 
07,157, 20,93 

9440 DATA 157.6.83.157.9.83.157. 
15,83,157 

9450 DATA 21,83,157,18,83,157,1, 
31,1,31 

9460 DATA 1,31,1,31,1,31,1,1,30, 
1 

9470 DATA 1,30,1,1,0,1,31,1,31,1 
9480 DATA 31,1,31,1,0,32,32,32,3 
2,31 

9490 DATA 1,1,30,1,1,30,1,1,0,1 

9500 DATA 31,1,31,1,31,1,31,1,30 
,1 

9510 DATA 1,30,1,1,30,1,1,0,1,1 

9520 DATA 30,1,1,30,1,1,30,1,1,3 
0 

9530 DATA 1,1,30,1,1,30,1,1,30,1 
9540 DATA 1,0 


O Notas sobre el programa 
Organo electrónico 


El programa está hecho de tal forma 
que cualquler persona con conocimien- 
tos de código máquina puede utilizar las 
rutinas que se encuentran dentro del mis- 
mo para sus propios programas. 


e Programa: Agenda telefónica 


El siguiente programa es una agenda 
telefónica que nos permitirá tener alma- 
cenados en el disco de nuestro IBM o 
compatible toda la información que de- 
seemos sobre clertas personas. 


Buscar una persona. 


— Cambiar los datos de una persona. 
— Buscar todas las personas cuyo nom- 
bre empiece por una cierta letra. 

— Borrar una persona del fichero. 
— Listar todas las personas que hay al- 
macenadas. 


1 El dad PERSONA 


PERSONA El programa también está capacitado 
AA ida para sacar por la impresora los datos de 
p todo el listín telefónico que nosotros ha- 
yamos creado. Podemos sacar dicha im- 
presión con caracteres normales o con 
letras comprimidas. Esta última opción 
está especialmente pensada para aque- 
llos que quieran llevar una lista de todas 
las EROOnes conocidas en la cartera. 


1 
3 
$ 
é 


¿QUÉ ELIGES? (1-63? 


[A Menú del programa Gestor de teléfonos. 


El programa nos ermitirá tener un listín 
telefónico electrónico. Los datos que 


este programa puede almacenar son los e LOPEZ. BORREGO 
siguientes: | : EAS, 
— Nombre de la persona. SE] 5oseor2 

LE Apellidos de la persona. : LUIS MIGUEL ROSALES POZAS 
— Dirección en la cual vive. 3450012 

— Ciudad. MARIA MERCEDES ROSAS PI 

— Código postal 2, 


País , = PEDRO GARCIA MATA 
; = 3224354 
— Teléfono. 

Este programa nos permite realizar las 


siguientes funciones con las fichas que 
vayamos introduciendo en memoria: 


— Introducir una persona nueva en el fi- 
chero. 


Rá pp Z2 
cane QUIERES, PANTALLA O IMPRESORA CP/ 1> dd 
ESSS 


ES IS 


OPCIONES TELE 


2 — ROMERE SO JREE. y rez 


dz 


¿QUE OPCION QUIERES? 


¿QUIERES CAMBIAR ESTA FICHA (S/N)? 


A Menú de impresión. 


A 


El programa nos permite modificar las fi- 
7 [ol 


Este programa está escrito para cual- cionar en el MSX y MSX2 con disco si se 
quier ordenador que sea compatible realizan los siguientes cambios: 
con el IMB pc, xt y at. También puede fun- 


RAMA OOOO OlOlSlOjOlalolojolok 


AGENDA TELEFONICA 


POR: PETER BERGMANN 


XK XX XX Xx 


AMOO lO joo ajololalolollalok 


VARIABLES 


REGISTRO TEMPORAL 
S$ NOMBRE WS, ES 
A$ DIRECION Y$ 
Cc$ CIUDAD U$ 
2$ ZONA I$ 
P$ PAIS D$ 
N$ TELEFONO 0$ 
L$ PUNTERO IZQUIERDA L, F, LSx 
R$ PUNTERO DERECHO R 
B$ PUNTERO ARRIBA B 


XK XA XA XA > AA 


OPCION DE MENU 

FLAG PARA IZQ, DERC. 
NUMERO DEL PROXIMO REGISTROX 
NUMERO DE REGISTROS 

PARA MANIPULAR STRING 
NUMERO DE REGISTRO 
RESPUESTA (S/N) 

CONTADOR 

RESPUESTA PARA CONTINUAR 
FLAG 

LETRA A BUSCAR 

PARA MANIPULACION DE STRINGx*x 
NUMERO DE PAGINA 
FLAG (P/I) 

OPCION DE PRINT 
CONTADOR DE REGISTROS 


>< 
e 
XK >— kk k 


a! 
> Zz 


5] 


nx>” 
e 0 
XK XX XA XX > A kk 


z 


* 
k 
* 
xk 
* 
* 
xk 
x 
* 
* 
k 
k 
xk 
xk 
de 
x 
* 
* 
k 
k 
xk 
* 
ES 
* 
* 
* 
* 
* 
k 
k 
xk 
* 
* 


KK X= k 


IMSS OaSj Ella lalalala alalaja lalola jala laa jolalolajojok 


dalalalalalalala lalala jalalalajelalalajalalalolok 
*x (c) Ed. Siglo Cultural * 
* (c) 1987 xk 
Aaa lO OOO 


580 KEY OFF 

590 CLS 

800 PRINT "asdf lolloIIojaK 
610 FOR I = 1 TO 19 

620 PRINT "*"; TAB(40); "x*" 


630 NEXT I 
640 PRINT MedRSdNSISS SOS lSjOS Sl aja lalalala lalala lalalala lalojalojolak" 


650 LOCATE 8,12: PRINT "AGENDA TELEFONICA" 

880 LOCATE 91 PRINT "=--==-== == === Ñ 

670 LOCATE 12,7: PRINT "(c) Ed. Siglo Cultural, 1987" 
680 FOR 1 = 1 TO 1000 

690 NEXT I 

700 REM 


710 REM Adosado JJOIOIOOIOIO NOK 


DEFINICION DE REGISTRO 
730 REM oooO jalalalalojojajolalalalalaaojalalojalolojojojor 


720 REM * 


740 REM 
750 OPEN "TELE.F" AS $1 LEN = 148 


760 FIELD +1, 40 AS S$, 15 AS N$, 30 AS A$, 


, 2 AS R$, 2 AS B$ 

770 REMx 

780 REM *** VER SI HAY REGISTROS  *Xx*Xx* 
790 REM 

800 CLS 

810 GET $1, 1 

820 IF NOT EOF(1) THEN GOTO 900 

830 LSET S$ = "M" 


20 AS C3, 


840 LSET N$ = MKI$(1) 

850 LSET A$ = MKIS(1) 

880 LSET L$ = MKI$(0) 

870 LSET R$ = MKI$(0) 

880 LSET B$ = MKI$(0) 

890 PUT +$1, 1 

900 REM 

910 REM Adol aS dada aaa dodo lakok 
920 REM x MENU * 
930 REM Ada OOOO aaa lajajojolalojojok 
940 REM 

950 CLS 


980 LOCATE 3,18: PRINT "MENU" 
970 LOCATE 4,17: PRINT "------ y 


980 LOCATE 6,12: PRINT "1 - NUEVA PERSONA” 


990 LOCATE 7,12: PRINT "2 - BUSCAR/CAMBIAR PERSONA" 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


LOCATE 8,12: PRINT "3 - BUSCAR" 


LOCATE 9,12: PRINT "4 - BORRAR PERSONA” 
LOCATE 10,12: PRINT "5 - LISTAR TODAS” 


LOCATE 11,12: PRINT "6 - TERMINAR" 

LOCATE 14,1: PRINT "(QUE ELIGES? (1-8)"; 
INPUT M 

IF (M< 1) OR (M > 6) GOTO 940 

ON M GOSUB 1170,2340, 3060, 3320, 2760, 1090 
GOTO 950 

REM 

REM x4*x* FIN DEL PROGRAMA —xx*kx 

REM 

CLOSE +1 

CLS 

PRINT "ADIOS..." 

KEY ON 

END 

REM SOSA lO lolo IOlllloloJoK 
REM * INTRODUCIR PERSONA k 
REM aMSN SISI ala laO lalo 
REM 

CLS 

PRINT "PARA SALIR INTRODUZCA ”X” EN EL NOMBRE” 
PRINT 

LINE INPUT "NOMBRE: ";W$ 


IF W$ = "X" THEN RETURN 

IF W$ = "" THEN GOTO 1210 

LINE INPUT "APELLIDOS: ";E$ 
GOSUB 1520 

GOSUB 2230 

IF X$ = "D" GOTO 1450 

LINE INPUT "DIRECCION: ";Y$ 
LINE INPUT "CIUDAD: ";U$ 

LINE INPUT “CODIGO POSTAL: ";I$ 
LINE INPUT "PAIS: ";D$ 

LINE INPUT "NUMERO DE TELEFONO: 
GOSUB 2010 

GOSUB 2090 

GOSUB 1640 


"50$ 


1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1840 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


TN 
TA 
N$ 
AS 
PUT +1, 

GOTO 117 
CLS 

PRINT 


1 
1 


+ 
+ 
1 
(o) 


MKIS$(TN) 
MKIS(TA) 


"ESA FICHA YA EXISTE" 


PRINT:PRINT "PULSA UNA TECLA” 


H$=INPUT$(1) 
GOTO 1170 
END 
REM 
U$ 
v$ 
LEFTS$(W$ 
LEFTS(E$ 
LEFTS (W$ 
RETURN 

REMXx 


SPACE$(25) 
SPACE$(15) 


+ U$, 
+ V$, 
an E$, 


25) 
15) 
40) 


REM* DISECT KEY 


REMX 


Ws = LEFTS(S$. 


25) 


E$ = RIGHT$(S$, 15) 


RETURN 

REM 

REM* GET ROOT 
REM 

GET +1,1 
LETOQ= 1 

TN = CVI(N$) 
TA = CVI(AS$) 
RETURN 

REMx* 

REM xxx FICHA 
REM 


LET X$ = "D" 
REM 

RETURN 

REM 

REM *xx** COGER 


REM 

R = CVI(R$) 
IF R = O THEN 
GET $1, R 
LETQ=R 
RETURN 

REM 

REM *x*x* COGER 
REM 

L = CVI(L$) 
IF L = O THEN 
GET +1, L 
LETQ=L 
RETURN 

REM 

REM x*x*x* COGER 
REM 

B = CVI(B$) 
GET +41, B 
LETQ=B 
RETURN 

REM 


REPETIDA x*xx* 


DERECHA ok 


LET X$="R": G 


IZQUIERDA xxx 


LET X$ = “"L": 


KAk 


REM *xx%x%*x CAMBIAR xxx 


REM 
TN = TN + 1 


IF X$ = "L" THEN LSET L$ 
"R" THEN LSET R$ 


IF X$ 
PUT $1, Q 


OTO 1850 


GOTO 1930 


MKI$ (TN) 
MKIS(TN) 


2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2840 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 


RETURN 
REM 
REM ok 
REM 
LSET S$ 
LSET A$ 
LSET C$ 
LSET Z$ 
LSET P$ 
LSET N$ 
LSET L$ 
LSET R$ 
LSET B$ 
PUT $1, 
RETURN 
REM 


GRABAR x*xx* 


WS 
Y$ 
U$ 
I$ 
D$ 
O$ 
MKIS(0) 
MKI$(0) 
MKIS$(Q) 
N 


Y 


REM x*x*xx* BUSCAR FICHAS ox 


REM 
LET X$ 
GOSUB 1 
WHILE X 
IF Ws$ 
IF W$ 
IF W$ 
WEND 
RETURN 
REM 


REM asa SSI IdO SIS Olla la lola lalalala lalola jolololojojok 


LOCALIZAR UNA PERSONA 
ES 


REM x 


REM 
CLS 


LOCATE 3,14: PRINT "BUSCAR PERSONA” 


= "N" 
640 
$ = "N" 


HA AV 


S$ THEN GOSUB 1780 
S$ THEN GOSUB 1860 
S$ THEN GOSUB 1720 


LOCATE 5,1: PRINT "(NOMBRE"; 


INPUT W$ 

LOCATE 6,1: PRINT 
INPUT E$ 

GOSUB 1510 

GOSUB 2230 

CLS 

IF X$ <> "D" THEN 
GOSUB 1580 
LOCATE 2,2: PRINT 
LOCATE 3,2: PRINT 
LOCATE 4,2: PRINT 
LOCATE 5,2: PRINT 
LOCATE 6,2: PRINT 
LOCATE 7,2: PRINT 
LOCATE 8,2: PRINT 


"(APELLIDOS"; 


LOCATE 7,12: PRINT "FICHA NO ENCONTRADA": GOTO 2670 


"NOMBRE 
"APELL. 
“DIREC. 
"CIUDAD 
"CODIGO 
"PAIS 
“TELE 


IF M <> 2 THEN GOTO 2730 


LOCATE 14,2: PRINT "(QUIERES CAMBIAR ESTA FICHA (S/N)"; 


INPUT M$ 


IF M$ = "S" THEN GOSUB 3980: GOTO 2490 


IF M$ < 


> "N" GOTO 


2580 


";W$ 
"Es 


¡As 


"5C$ 
“y zs$ 


PS 


"NS 


LOCATE 14,2: PRINT SPACE$(38) 


LOCATE 14,2: PRINT "(QUIERES SACARLO POR IMPRESORA (S/N)"; 


INPUT M$ 


IF M$ = "S" THEN GOSUB 4140: GOTO 2680 


IF M$ < 


> "N" GOTO 


2620 


IF M <> 2 THEN GOTO 2730 
LOCATE 14,2: PRINT SPACE$(38) 


LOCATE 14,2: PRINT "(QUIERES BUSCAR MAS (S/N)"; 


2690 


INPUT M$ 

IF M$ = "S" GOTO 2390 
IF M$ <> "N" GOTO 
RETURN 


REM 


2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2880 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3080 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 


REM ORSAI lalola lalalala laIJdIaaoK 
REM x IMPRIMIR ARBOL + k 
REM aSSISIASA SNOOP MOSS lalola jojojolok 
REM 


GOSUB 4260 
LETP=1 
CLS - 


LOCATE 1,14: PRINT "LISTA DE NOMBRES" 
GOSUB 1640 
LET I=1 
LET X$ = "N" 
WHILE X$ = "N” 
GOSUB 1870 
WEND : 
L = CVI(L$) 
R = CVI(R$) 
B = CVI(B$) 
IF (Q <> 1) AND (M <> 3) THEN GOSUB 4500 
IF (M = 3) AND (Q <> 1) THEN GOSUB 3250 
IF 1 = TA THEN GOTO 3040 
I=I+1 
LET X$'= "N” 
GOSUB 1790 
IF X$ = "N" GOTO 2860 
LETZ=Q 
GOSUB 1940 
R = CVI(R$) 
IF R = Z THEN GOTO 2990 
GOTO 2920 


PRINT: PRINT: PRINT "PULSA ENTER PARA CONTINUAR" 


RETURN 

REM 

REM aaa lodo lolo lolalalalojololalajalajolalalalojollolok 
REM x BUSCAR k 
REM SOS ajo lalalalala lalala lajololalolololojok 
REM S 

CLS 

LOCATE 2,12: PRINT “BUSQUEDA POR UNA LETRA” 
LOCATE 4,1: PRINT "PRIMERA LETRA DEL NOMBRE"; 
INPUT H$ 

CLS : 
LOCATE 2,16: PRINT “NOMBRES CON ";H$ 
PRINT 

GOSUB 2830 

PRINT : PRINT 

PRINT "(QUIERES VER MAS (S/N):"; 

INPUT M$ 

IF M$ = "S" THEN GOTO 3100 

IF M$ <> "N" THEN GOTO 3200 

RETURN 

REM 

REM *xxx*x CHEQUEA LA PRIMERA LETRA xxx . 

REM 

J$ = LEFT$(S$, 1) 

IF J$ = H$ THEN GOSUB 1580: PRINT W$;E$ 
IF J$ > H$ THEN 1 = TA 

RETURN 

REM 

REM saalSO SOS lO OlO Olalla lalalala lalala lalalollololalalololok 
REM x BORRAR REGISTRO k. 
REM SOS OOOO lalalala ladalala jalo jolalajalolololelalakk 
REM 

CLS 

LOCATE 3,11: PRINT "BORRAR UNA PERSONA" 
GOSUB 2410 

IF X$ = "D" THEN GOTO 3460 

LOCATE 12,1: PRINT “(QUIERES BORRAR MAS (S/N)"; 
INPUT M$ 


SEN PUT: GC 


3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3880 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 


IF M$ = "S" GOTO 3370 

IF M$ <> "N" GOTO 3410 

RETURN 

LOCATE 14,2: PRINT "(ESTAS SEGURO (S/N)"; 
INPUT M$ 

IF M$ = "N" THEN CLS: GOTO 3410 

IF M$ <> "S" THEN GOTO 3460 

R = CVI(R$) 

L = CVI(L$) 

B = CVI(B$) 

LETD=0 

IF (L <> 0) OR (R <> 0) THEN GOTO 3610 

GET +1, B 

F.= CVI(L$) 

IF F = Q THEN LSET L$ = MKI$(0) ELSE LSET R$ 
PUT +1, B 

GOTO 3910 

REM : 

IF R = O THEN GOTO 3710 

LET D=1 

GET $1, B 

F = CVI(L$) 

IF F = Q THEN LSET L$ = MKI$(R) ELSE LSET R$ 
PUT +1, 
GET +1, 
LSET B$ 
PUT +1, 
REM 

IF L = O THEN GOTO 3910 
IF D = 1 THEN GOTO 3820 
GET $1, B 

F = CVI(L$) 


MKIS(B) 


DMmQmuw 


IF F = Q THEN LSET L$ = MKI$(L) ELSE LSET R$ = MKIS$(L) 


PUT +1, 
GET +1, 
LSET BS$ 
PUT +1, 
GOTO 391 
REM 

GET $1, L 
LET W$ = S$ 
LET LS = L 
GOSUB 2230 


MKIS(B) 


oruro 


IF X$ = "L" THEN LSET L$ = MKI$(LS) ELSE LSET R$ = MKI$(L5) 


PUT $1, Q 

GET $1, LS 

LSET B$ = MKI$(Q) 

PUT +1, LS 

CLS 

LOCATE 4,12: PRINT "FICHA BORRADA!" 
GOSUB 1640 

TA = TA - 1 

LSET A$ = MKI$(TA) 

PUT $1, 1 

GOTO 3410 

REM 

REM ARO dodo dl ld dk a o 
REM * CAMBIAR EL REGISTRO * 
REM AR RR Rd a ld a Ro Ko 
REM 

LOCATE 14,2: PRINT SPACE$(38) 


LOCATE 14,2: PRINT "(QUE QUIERES CAMBIAR (D,C,Z,P,T)"; 
INPUT M$ 

IF M$ = "D" THEN LOCATE 4,9: LINE INPUT Y$: LSET A$ 
IF M$ = "C" THEN LOCATE 5,9: LINE INPUT U$: LSET C$ 
IF M$ = "Z” THEN LOCATE 6,9: LINE INPUT I$: LSET Z$ 
IF M$ = "P" THEN LOCATE 7,9: LINE INPUT D$: LSET P$ 
IF M$ = "T" THEN LOCATE 8,9: LINE INPUT O$: LSET N$ 


MKIS(0) 


MKIS(R) 


Y$ 
U$ 
I$5 
D$ 
0$ 


4110 PUT +1, Q 

4120 CLS 

4130 RETURN 

4140 REM 

4150 REM addalaloaOalOlO lalalala jalo lol ok ok 

4160 REM x*x IMPRIMIR k 

4170 REM addaalolaiOldalololalojolalajdlalaldlalolalalalajololololok 

4180 REM - 

4190 GOSUB 4890 

4200 LPRINT W$;ES$ 

4210 LPRINT A$ 

4220 LPRINT C$;" ";Z3 

4230 LPRINT P$ 

4240 LPRINT N$ 

4250 RETURN 

4260 REM 

4270 REM aaa aalalolOlalolalalalalo lalalala lalalalolololalajolojolalak 
4280 REM * PANTALLA O IMPRESORA 29??? k 
4290 REM aaa OOOO ol 
4300 REM 

4310 CLS 

4320 LOCATE 2,1: PRINT "(QUE QUIERES, PANTALLA OR IMPRESORA (P/1)"; 
4330 INPUT G$ 

4340 IF (G$ <> "P") AND (G$ <> "I") THEN GOTO 4310 
4350 LOCATE 5,16: PRINT "OPCIONES" 

4360 LOCATE 6,15: PRINT "----=-=----- E 

4370 LOCATE 7,10: PRINT "i - NOMBRE" 

4380 LOCATE 8,10: PRINT "2 - NOMBRE Y TELE" 
4390 LOCATE 9,10: PRINT "3 - NOMBRE, DIREC. Y TELE" 
4400 LOCATE 12,1: PRINT "(QUE OPCION QUIERES";- 
4410 INPUT U 

4420 IF (U < 1) OR (U > 3) THEN GOTO 4400 

4430 LOCATE 14,1: PRINT "(ESTAS SEGURO (S/N)"; 
4440 INPUT M$ 


4450 IF M$ = "N" THEN GOTO 4310 

4460 IF M$ <> "S" THEN GOTO 4430 

4470 LETN = 0 É 

4480 IF G$ = "I" THEN GOSUB 4890 

4490 RETURN 

4500 REM 

4510 REM AoaaloaOlSlSlOlOlSlOlajOlalSlOl jalo JOlOlOlOjOlOlOjOK 
4520 REM x IMPRIMIR k 
4530 REM ASSIM MOSSOS OOOO aloja lOjolOloK 
4540 REM 


4550 GOSUB 1580 

4560 IF G$ = "I” THEN GOTO 4710 

4570 PRINT W$;E$ 

4580 IF U = 3 THEN PRINT A$: PRINT C$,Z$: PRINT P$ 
4590 IF U > 1 THEN PRINT N$ 


4600 PRINT 

4610 N =N + 1 

4620 IF (U = 1) AND (N/P = 10) THEN GOTO 4660 
4630 IF (U = 2) AND (N/P = 7) THEN GOTO 4680 
4640 IF (U = 3) AND (N/P = 3) THEN GOTO 4660 


4650 GOTO 4880 

4660 P =P +1 

4670 PRINT: PRINT "PULSA ENTER "; 

4680 J$ = INPUT$(1) 

4690 CLS 

4700 GOTO 4880 

4710 REM 

4720 REM salada lalalala lalafalolololololok 
4730 REM * SALIDA POR IMPRESORA k 
4740 REM doSASAMS ASIA lJOllVIOJOIO KK 
4750 REM 

4760 LPRINT W$;E$ 

4770 IF U = 3 THEN LPRINT A$: LPRINT C$,Z$: LPRINT P$ 
47890 IF U > 1 THEN LPRINT N$ 


4790 LPRINT 
4800 N =N+ 1 


4840 GOTO 4880 

4850 P =P +1 

4860 LPRINT CHR$(12) 
4870 CLS 

4880 RETURN 

4890 REM 


4910 REM x*x PREPARAR IMPRESORA 


4930 REM 
4940 LPRINT CHR$(27)+CHR$(64) 
4950 CLS 


4970 INPUT M$ 
4990 IF M$ = "G" THEN LPRINT CHR$(18) 
5010 CLS 


5030 J$ = INPUT$(1) 
5040 RETURN 


650 LOCATE 12,8:PRINT “AGENDA TELEFO- 
NICA” 

660 LOCATE 11,9:PRINT “omcennanananannana á 

670 LOCATE 7,12:PRINT “(c) Ed. Siglo Cul- 
tural, 1987" 

960 LOCATE 18,3:PRINT “MENU” 

970 LOCATE 17,4:PRINT “==... A 

980 LOCATE 12,6:PRINT “1 - NUEVA PERSO- 
NA” 

990 LOCATE 12,7:PRINT “2 - BUSCAR/CAM- 
BIAR PERSONA” 

1000 LOCATE 12,8:PRINT “3 - BUSCAR” 
1010 LOCATE 12,9:PRINT “4-BORRAR PER- 
SONA” 

1020 LOCATE 12,10:PRINT “5 - LISTAR TO- 
DAS” 

1030 LOCATE 12,11:PRINT “6 - TERMINAR” 
1040 LOCATE 1,14:PRINT “(QUE ELIGES? 
(1-6) ”; 

2400 LOCATE 14,3:PRINT “BUSCAR PERSO- 
NA” 

2410 LOCATE 1,5:PRINT “(NOMBRE”; 

2430 LOCATE 1,6:PRINT “(APELLIDOS ”; 


4810 IF (U = 1) AND (N/P = 30) THEN GOTO 4850 
4820 IF (U = 2) AND (N/P = 20) THEN GOTO 4850 
4830 IF (U = 3) AND (N/P = 10) THEN GOTO 4850 


4900 REM Aoi iSO OOOO lalala ol dloloKoK 


4920 REM dal SlolOIROIIolVIOIOK 


4960 LOCATE 2,1: PRINT "(QUIERES IMPRESION GRANDE O PEQUENIA (G/P)"; 
4980 IF M$ = "P" THEN LPRINT CHR$(27)+CHR$(15) 
5000 IF (M$ <> "P") AND (M$ <> "G") THEN GOTO 4950 


5020 LOCATE 2,1: PRINT "COLOCA EL PAPEL Y PULSA ENTER”; 


2510 LOCATE 2,3:PRINT “APELL. ”;ES 
2520 LOCATE 2,4:PRINT “DIREC. "¡AS 
2530 LOCATE 2,5:PRINT “CIUDAD ”;C$ 
2540 LOCATE 2,6:PRINT “CODIGO ”;Z$ 
2550 LOCATE 2,7:PRINT “PAIS ”;PS 
2560 LOCATE 2,8:PRINT “TELE ”:N$ 


2580 LOCATE 2,14:PRINT “(QUIERES CAM- 
BIAR ESTA FECHA? (S/N)”; 

2620 LOCATE 2,14:PRINT SPACE$(38) 

2630 LOCATE 2,14:PRINT “(QUIERES SACAR- 
LO POR IMPRESORA? (S/N) ”: 

2680 LOCATE 2,14:PRINT SPACES(38) 

2690 LOCATE 2,14:PRINT “(QUIERES BUS- 
CAR MAS? (S/N) ”; 

2820 LOCATE 14,1:PRINT “LISTA DE NOM- 
BRES” 


3120 LOCATE 12,2:PRINT “BUSQUEDA POR 
UNA LETRA” 


3130 LOCATE 1,4:PRINT “PRIMERA LETRA 
DEL NOMBRE”; 


o LOCATE 16,2:PRINT “NOMBRES CON 
"H 


3380 LOCATE 11,3:PRINT “BORRAR UNA 
PERSONA” 

3410 LOCATE 1,12:PRINT “(QUIERES 
BORRAR MAS? (S/N) »; 

3460 LOCATE 2,14:PRINT “(ESTAS SEGURO? 
S ”. 


( , 

3920 LOCATE 12,4:PRINT “FICHA BORRA- 
DA!” 

4030 LOCATE 2,14:PRINT SPACES(39) 
4040 LOCATE 2,14: PRINT “(QUE QUIERES 
CAMBIAR (D,C,Z,P 

4060 IF M$="D"THEN LOCATE 9,4:LINE INPUT 
YS:LSET AS=YS 

4070 IF M$="C"THEN LOCATE 9,5:LINE IN- 
PUT U$:LSET CS=U$ 

4080 IF M$="Z"THEN LOCATE 9,6:LINE INPUT 
IS:LSET Z$=I5 . 

4090 IF M$="P”THEN LOCATE 9,7:LINE INPUT 
D$:LSET P$=D 

4100 IF M$="T"THEN LOCATE 9,8:LINE INPUT 
-OS:LSET N$=0S$ 


4320 LOCATE 1,2:PRINT “(QUE QUIERES, 
PANTALLA O IMPRESORA (P/!) ”; 

4350 LOCATE 16,5:PRINT “OPCIONES” 
4360 LOCATE 15,5:PRINT “==onmmmana= 

4370 LOCATE 10,7:PRINT “1 - NOMBRE” 
mi LOCATE 10,8:PRINT “2 - NOMBRE Y 
4390 LOCATE 10,9:PRINT “(QUE OPCION 
QUIERES? ”; 

4400 LOCATE 1,12:PRINT “(QUE OPCION 
QUIERES? »; 

S/N) LOCATE 1,14:PRINT “(ESTAS SEGURO? 
4960 LOCATE 1,2:PRINT “(QUIERES IMPRE- 
SION GRANDE O PEQUEÑA (G/P)”; 

5020 LOCATE 1,2:PRINT “COLOCA EL PAPEL 
Y PULSA ENTER”; 


Este programa aparecerá dentro de 
pocos tomos en versiones para el COM- 
MODORE, AMSTRAD y SPECTRUM. 


DEMAS del control so- 
bre los datos (para 
obviar la introduc- 
ción de errores y ase- 
gurar la congruencia 
de los resultados), en 
el análisis de una 
E A aplicación informáti- 
ca o un programa conviene introducir al- 
gunos mecanismos de seguridad en el 
conjunto de los ficheros de datos a pro- 
cesar. 

En efecto, en todos los dispositivos físi- 
cos de soporte magnético de datos se 
pueden producir errores y accidentes 
que provocarán la destrucción de los da- 
tos o, al menos, dificultades en su lectura, 

La situación es ligeramente diferente 
en el caso de manejo de cintas magné- 
ticas y de discos fijos. Los disquetes mag- 
néticos participan de ciertas caracterís- 
ticas de ambos medios. 


En el caso de las cintas magnéticas es 
usual prever varlos procedimientos de 
seguridad. 


a) Control de validez de los datos leí- 
dos: hay que establecer un procedimien- 
to de reintentos de lectura y de informa- 
clón al usuario en caso de producirse 
errores. Se pueden fijar otros controles 
(de longitud de datos obtenidos, de se- 
cuencia de registros, etc.) para asegurar 
la correcta lectura de los datos. 


b) Establecimiento de una copla de 
seguridad para un fichero, cuando la re- 
petición del proceso de obtención de 
ese archivo es larga o complicada, 


TECNICAS DE ANALISIS 


SEGURIDADES EN LOS PROCESOS 


cuando los datos deben ser utilizados en 
varios procesos, etc. Hay que evaluar en 
este caso el coste de inmovilización de 
las copias frente a la posibilidad de re- 
petición de los procesos, los problemas 
de tiempo que pueden surgir, etc. 


c) A veces, incluso, se establece un 
sistema de varias copias (normalmente 
tres: «abuelo-padre-hlijo») cuando es im- 
portante el fichero a conservar o cuando 
el proceso se repite con mucha frecuen- 
cla. 


d) Reducir los tiempos de realización 
en los procesos muy largos, previendo su * 
fraccionamiento y estableciendo puntos 
de control y relanzamiento. Para ello hay 
que definir unos momentos en los que el 
proceso se detenga y en los que se ob- 
tenga una imagen de la situación (posi- 
ción de los ficheros que se están proce- 
sando, estado de las variables, imagen 
de la memoria principal, etc.). De este 
modo, si en el intervalo hasta el siguiente 
punto de control se produce una anoma- 
lía, es posible relanzar el proceso desde 
el punto de control anterior en vez de 
arrancar la aplicación desde su comien- 
zo. En estos puntos de relanzamiento se 
suelen establecer controles para detec- 
tar posibles anomalías no detectables 
por simple observación exterior del de- 
sarrollo del proceso y que no producen 
un mensaje de error del sistema. 


e) Además de la definición de los sis- 
temas de seguridad indicados, el analis- 
ta deberá proveer normas detalladas de 
actuación de todas las personas involu- 


E TECNICAS DE ANALISIS 


cradas en los trabajos, de forma que se 
actúe de un modo preciso para la detec- 
ción y eliminación o corrección de los 
errores que se puedan producir. 


En el caso de los discos magnéticos se 
pueden producir, además, algunos otros 
errores o accidentes debidos a la propia 
estructura del dispositivo: detección del 
disco en el momento de escritura con 
destrucción física del soporte, borrado 
de etiquetas o índices de los ficheros 
etcétera, Incluso problemas de polvo, al 
que son bastante sensibles. 

Para evitar estas dificultades (o minimi- 
zarlas en la medida de lo posible) se re- 
comienda: 


a) Limitar la Importancia de las 
correcciones a realizar si se produce una 
destrucción de información, mediante la 
división del fichero en bloques lógicos 
que representen porciones limitadas de 
los ficheros completos. 


b) Prever un código Incluido en el fi- 
chero; código que deberá ser analizado 
antes de la cumplimentación de cual- 
quier orden de escritura. 


c) Limitar los accesos de modifica- 
ción de los ficheros básicos, mediante 
agrupación de las actualizaciones del 
archivo, en la medida de lo posible. 


d) Distribuir los ficheros en varios dis- 
positivos fi físicos o instalar en un disposltl- 
vo los índices de acceso y otros elemen- 
tos de control y en otro diferente los da- 
tos. Por este procedimiento, además, se 
puede mejorar el tiempo de acceso a los 
archivos básicos, dependiendo del siste- 
ma físico (hardware) sobre el que se esté 
trabajando. 


e) Control del momento en que se ha 
producido la anomalía (error, detención 
del dispositivo, etc.) respecto del mo- 
mento en que se ha escrito o se deberá 
escribir, para deducir de ello las fases a 
cumplimentar en el proceso de recons- 
trucción del fichero y en el procedimien- 
to de relanzamiento. 


f) Creación de ficheros de seguridad 
parciales que se elaboren automática- 
mente en clertos momentos del proceso 
o cuando se ha producido un número de 
accesos predefinido. 


g) Establecimiento de ficheros de al- 
macenamiento de actualizaciones para 
simplificar el relanzamiento. 


h) Control de volumen de los ficheros 
para coadyuvar a los mecanismos de se- 
guridad del sistema y prever áreas de ex- 
pansión y reordenación de los archivos. 


1) Prever y definir cuidadosamente los 
procesos de depuración y reorganiza- 
ción de los ficheros para minimizar estas 
tareas y eliminar posibles fuentes de pro- 
blemas. 


Ademas de estos mecanismos concre- 
tos de seguridad indicados, en la mayo- 
ría de las aplicaciones será posible, e in- 
cluso conveniente, establecer otras se- 
gurldades y controles que vendrán Indl- 
cadas por las características de las ta- 
reas a desarrollar. 

Conviene hacer un examen de los pro- 
cesos desde este punto de vista y detec- 
tar las tareas especialmente críticas, ex- 
tremando en ellas el número y sofistica- 
ción de las seguridades a definir e inclu- 
so, en algunos casos, estableciendo que 
los programas emitan mensajes de ad- 
vertencia a los operadores. 


TIPOS DE DATOS 


OR el momento he- 
mos hablado bastan- 
te de estructuras de 
datos. En efecto, los 
escalares, las series o 
vectores y las tablas 
o matrices constitu- 
yen en conjunto la es- 
tructura de más del 99 por 100 de los da- 
tos que uno suele encontrarse en los pro- 
gramas de ordenador. Es verdad que 
existen otras estructuras: tablas rectan- 

ulares de tres o más dimensiones, listas, 

rboles y grafos que pueden tener gran 
utilidad en aplicaciones concretas, es- 
pecialmente en lenguajes especializa- 
dos (como LISP) o próximos al lenguaje 
de la máquina (como C). Describiremos 
más adelante estas otras estructuras. 

Además de una estructura determina- 
da, los datos que proporcionamos a un 
programa pueden pertenecer también a 
varios tipos diferentes. El tipo de un dato 
nos indica qué clase de información re- 
presenta ese dato y qué operaciones po- 
demos realizar con él. Por ejemplo, un 
dato de un programa podría ser la pala- 
bra «VERTEBRA». Otro dato del mismo pro- 
grama podría ser el número 25. En el pri- 
mer caso tenemos información alfabétl- 
ca con la que podemos realizar opera- 
clones como las siguientes (entre otras 
muchas posibles): 


— Ponerla por orden alfabético, lo 
que nos daría el resultado «ABEERRTV». 


— Compararla con otra palabra, lo 
que nos daría el resultado «son Iguales» 
o «son desiguales». 
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— Extraer los tres primeros caracteres, 
lo que nos daría el resultado «VER». 
— Extraer dos caracteres a partir del 
cuarto, lo que nos daría el resultado «TE». 
— Invertir el orden de sus letras, lo que 
Her $ dará el resultado «ARBETREV». 
— Imprimirla por la pantalla. 


En el caso del número 25 tenemos in- 
formación numérica, con la que pode- 
mos realizar operaciones como las si- 
guientes (también entre otras muchas): 


— Sumarle el número 3, lo que nos da- 
ría el resultado 28. 

— Multiplicaria por 2, lo que nos daría 
el resultado 50. 

— Pasarla al sistema de numeración 
binario, lo que nos daría el resultado 
«11001», 

— Compararla con otro número, lo 
que nos daría el resultado «son iguales», 
«son desiguales», «el primero es mayor» o 
«el segundo es mayor». 

— Imprimirla por la pantalla. 


Como se ve, algunas de las operacio- 
nes que podemos ralizar con la Informa- 
ción alfabética (como ordenar por orden 
alfabético o extraer clerto número de ca- 
racteres a partir de uno dado) no son 
aplicables a la información numérica. 
Por el contrario, algunas de las operacio- 
nes que podemos realizar con datos nu- 
méricos (como la suma, la multiplicación 
o el cambio de sistema de numeración) 
no son aplicables a los datos alfabéticos. 
Por último, existen operaciones (como 
imprimir en la pantalla o comparar) que 
pueden realizarse indistintamente con 
ambos tipos de datos. 


catas DE PROGRAMACIÓN 


En las próximas páginas veremos con 
más detalle ambos tipos principales de 
datos, junto con sus posibles subdivisio- 
nes y las operaciones en que pueden to- 
mar parte. Después menclonaremos al- 
gunos tipos de datos más, que se estu- 
diarán con más detalle en otra parte de 
esta obra. 


" Datos numéricos 


No cabe duda de que la información 
numérica desempeña un papel importan- 
tísimo en los programas de ordenador. 
Sin embargo, el mero hecho de poder 
operar con ella presenta clerto número 
de problemas, relativamente complejos, 
que vamos a describir sin entrar demasia- 
do en detalle. 

La información de cualquier tipo está 
contenida en la memoria de las compu- 
tadoras en forma binaria, mediante cir- 
cuitos eléctricos que pueden estar abler- 
tos o cerrados, o que pueden tener ten- 
siones altas o bajas, en forma de magne- 
tizaciones norte o sur. Es decir, mediante 
sistemas capaces de tomar solamente 
dos estados. Por conveniencia, a uno de 
los estados se le llama «cero» y al otro 
«uno». Un dato cualquiera viene repre- 
sentado siempre, en definitiva, por una 
sucesión de estos elementos binarios. Di- 
cho de otro modo, por una sucesión de 
ceros y unos. 

Es evidente, por consigulente, que exils- 
te una forma natural de representar la in- 
formación numérica dentro de la memo- 
rla de un ordenador: el sistema binario 
de numeración. Como se sabe, los núme- 
ros se representan en este sistema utili- 
zando únicamente dos cifras diferentes: 
el cero y el uno. Como comparación, 
pensemos que en el sistema decimal de 
numeración, al que estamos acostum- 
brados, los números se representan ulill- 
zando diez cifras diferentes. P 

¿Cómo construimos los números en el 
sistema decimal? Si los enumeramos to- 
dos sucesivamente, veremos que se 
construyen tomando primero una sola ci- 
tra y haciendo variar ésta del cero al nue- 
ve. Cuando se nos han acabado las cl- 
fras, ponemos un uno en la segunda cifra 
(la de las decenas) y volvemos a repetir 
el proceso de varlar la primera cifra del 
cero al nueve. A continuación, sumamos 


una unidad a la segunda citra y volvemos 
otra vez a variar la primera, y así sucesl- 
vamente. Cada vez que llegamos al final 
del recorrido de una cifra determinada, 
añadimos una unidad a la cifra siguiente 
hacia la izquierda y volvemos al cero en 
la cifra anterior (situada a su derecha). 
Exactamente lo mismo se hace en el 
caso del sistema binario de numeración 
pero aqui no disponemos de dlez cifras 
distintas (0, 1, 2, 3, 4, 5, 6, 7, 8, 9), sino tan 
sólo de dos (0 y D, por lo que las cifras 
de los números van extendiéndose hacia 
la izquierda mucho más de prisa. Veamos 
en la siguiente tabla cómo van generán- 
dose sucesivamente los números bina- 
rlos, aplicando el método anterior. Como 
comparación, hemos colocado el equi- 
valente decimal en la columna de la iz- 


quierda de la tabla: 
N.? N.? N.? N.? 
0 10 


0 0-JO UN MN -—O 


De la misma forma anterior podrían ge- 
nerarse los números sucesivos de cual- 
quier otra base: la ternaria (basada en 
las cifras O, 1, 2), la octal (basada en las 
cifras 0, 1, 2, 3, 4, 5, 6, 7), la hexadecimal 
(en un sistema de dieciséis cifras, que 
usualmente se representan con los sim- 
bolos 0, 1,2,3,4,5,6,7,8,9,A,B,C,D, 
E, F), etc. 

Pues bien: como hemos dicho, la forma 
«natural» de representar los números en 
un ordenador es en el sistema binario de 
numeración. Sin embargo, la forma «na- 
tural» de verlos en la pantalla o introdu- 
cirlos en el teclado es el sistema decl- 
mal, que al ordenador le resulta extraño. 
Es preciso, por tanto, convertirlos de un 
sistema a otro. 

Normalmente no tenemos que preocu- 
parnos de realizar este tipo de conversio- 
nes, pues existen programas de ordena- 
dor que nos las hacen automáticamente. 


Los traductores de los lenguajes de pro- 
gramación (compiladores o intérpretes) 
realizan esta función, entre otras muchas. 
Por esta razón podemos olvidarnos casi 
siempre del sistema binarlo de numera- 
ción y trabajar como si la máquina «en- 
tendiera» nuestros números decimales, 
aun cuando las operaciones se realiza- 
rán siempre dentro de ella en el sistema 
binario, 


Dentro de los ordenadores hay un ele- 
mento, que se llama el microprocesador, 
que, entre otras cosas, está encargado 
de realizar las operaciones arltméticas 
con los datos numéricos. Para ello, dispo- 
ne de una serie de «instrucciones de la 
máquina» elementales, capaces de rea- 
lizar operaciones aritméticas sencillas 
(sumas, restas, multiplicaciones, divisio- 
nes) entre parejas de números represen- 
tados en el sistema binario mediante ten- 
slones eléctricas altas o bajas. Ocurre, 
sin embargo, que estos números tienen 
que tener una longitud determinada, 
pues no podemos construir microprocesa- 
dores que operen con números de cual- 
quier longitud, ya que serían demasiado 
complejos. Por consiguiente, al diseñar 
el microprocesador se decide siempre 
cuántas cifras han de tener los números 
binarios con los que sea capaz de ope- 
rar. En un microprocesador determinado 
se pueden elegir una o más de estas lon- 
gltudes, pero siempre en un número fijo 
y determinado. En general, se operará 
con números binarios que tengan un nú- 
mero de cifras múltiplo de ocho: las lon- 
gltudes más frecuentes son ocho, diecl- 
séls, treinta y dos y sesenta y cuatro. 


¿Qué ocurre sl queremos operar con un 
número binario de cinco cifras en un mi- 
croprocesador que sólo puede operar 
con números de ocho cifras? No hay pro- 
blema. En todos los sistemas de numera- 
ción, los ceros a la izquierda no tienen 
valor alguno. Así, en el sistema decimal 
al que estamos acostumbrados, sabe- 
mos que 12345 representa el mismo nú- 
mero que 00012345. Lo mismo sucede en 
el sistema binario. Así, si queremos ope- 
rar con el número binario equivalente al 
decimal 17 (10001) y debemos extender- 
lo a ocho cifras, bastará con añadirle tres 
ceros a la izquierda, convirtiéndolo en 
00010001. 


El problema se presenta si queremos 


operar con números binarios de nueve cl- 
fras en un microprocesador que sólo pue- 
de operar con números de ocho cifras. 
Por ejemplo: sea el número decimal 511, 
cuya representación binarla es 
111111111. Es evidente que no podre- 
mos trabajar con él directamente, pues 
nos sobra una cifra. Siempre es posible 
construlr un programa que parta el núme- 
ro en varios trozos (dos, en este caso) y 
realice las operaciones en varios pasos, 
pero esto es preciso programarlo. En 
cambio, si el microprocesador tuviera 
también la posibilidad de operar direc- 
tamente con números binarios de dieci- 
séls cifras (además de con los de 8) bas- 
taría con añadir al número anterior siete 
ceros a la izquierda para resolver total- 
mente el problema. 

¿A dónde vamos a parar con todo 
esto? Al hecho de que, cualquiera que 
sea nuestro ordenador, habrá siempre un 
límite a los números enteros con los que 
pueda operar directamente, que depen- 
derá del número de cifras binarias elegi- 
do en el momento de diseñarlo. Todo 
esto se complica por el hecho de que 
generalmente se introducen convenios 
para representar también con cifras bi- 
narlas los números negativos (como el 
sistema del complemento a dos), pero 
no vamos a entrar en ello. Bastará con 
ver, en la tabla siguiente, los límites 
correspondientes a las distintas longitu- 
des utilizadas normalmente, tanto en el 
caso de números estrictamente positivos 
como de números positivos y negativos 
indistintamente. Los límites vienen dados 
en la tabla en el sistema decimal de nu- 
meración. 


N.o% 
N. os 
hos positivos 
binarias positivos y negativos 


-128 a 127 
re a 0% -32768 a 32767 
014294967295 | -2147483648 a 2147483647 


Por supuesto, hasta ahora hemos ha- 
blado únicamente de números enteros. 
Pero es también muy frecuente que de- 
seemos realizar operaciones con núme- 
ros decimales, como los siguientes: 


pS TECNICAS DE PROGRAMACIÓN 


o con números enteros que se salgan de 
los límites con los que puede operar 
nuestro ordenador. También es posible 
que, aunque los números con los que 
operamos sean enteros y calgan dentro 
de los límites válidos, el resultado de la 
operación no lo sea. Veamos un ejem- 
plo: 

Sea un ordenador cuyo microprocesa- 
dor puede realizar operaciones con nú- 
meros binarios de dieciséls cifras. Supon- 
gamos que acepta números negativos. 
De acuerdo con la tabla anterior, esto 
significa que podremos operar con los 
números comprendidos entre -32768 y 
32767. Pues bien, supongamos que de- 
seamos sumar los números binarios 
correspondientes a 25000 y 15000. Cada 
uno de ellos está dentro de los límites 
permitidos, pero la suma (40000) se en- 
cuentra fuera del Intervalo válido. Es de- 
cir: no podremos representar el número 
40000 con la precisión admitida por 
nuestro ordenador. Con mayor razón 
ocurriría algo semejante si tratáramos de 
multiplicar 1000 por 2000, pues el resul- 
tado es dos millones. 

Para resolver estas situaciones, existen 
dos posibilidades. O bien buscamos un 
microprocesador capaz de trabajar dl- 
rectamente con números expresados en 
un sistema de representación Interna lla- 
mado «coma flotante», o bien hacemos 
un programa que lo realice. Los dos ca- 
sos se dan en los ordenadores más cono- 
cidos. En el IBM PC, por ejemplo, además 
del microprocesador normal de la má- 
quina (8086, 8088 u 80286), que es ca- 
paz de realizar operaciones con enteros 
de ocho y dieciséls cifras binarias, se 
puede añadir un segundo microprocesa- 
dor (co-procesador matemático 8087 u 
80287), que opera con enteros de trein- 
ta y dos o sesenta y cuatro cifras binarias 
y con varlas representaciones en coma 
flotante. En otras máquinas (como el 
Spectrum, por ejemplo) y el mismo IBM 
PC, si no se dispone del co-procesador 
matemático, existen programas que per- 
miten trabajar con números decimales 
expresados en algún sistema de coma 
flotante. Casi todos los intérpretes y com- 
piladores de los principales lenguajes de 
programación los tienen, por lo que no 


tenemos, en principio, que preocupar- 
nos de ellos. Pero en algunos de estos 
lenguajes es Importante saber en cuál de 
los sistemas de representación se en- 
cuentra cada una de nuestras variables, 
pues hay operaciones que sólo pueden 
realizarse en determinados casos. Volve- 
remos sobre esto más adelante. 

El sistema de coma flotante, que se uti- 
liza tamblén en numerosas calculadoras 
de bolsillo, consiste en descomponer los 
números en dos partes: la primera (que 
se llama la «mantisa») es el conjunto de 
las cifras del número sin tener en cuenta 
la posición de la coma decimal (por eso 
se llama «coma flotanté»), que colocare- 
mos siempre a la derecha de la primera 
cifra del número que sea distinta de 
cero, leyéndolas de izquierda a dere- 
cha. La segunda parte (el exponente) es 
la potencia de diez por la que habría 
que. multiplicar la mantisa para obtener 
el número deseado. Por ejemplo, los tres 
números decimales dados anteriormente 
se expresariían en coma flotante así: 


2,5 


0,0000000001 
123,45 


En efecto: 2,5 es igual a 2,5 multiplica- 
do por 10 elevado a cero. 0,0000000001 
es igual a 1,0 multiplicado por 10 eleva- 
do a -10, Finalmente, 123,45 es Igual a 
1,2345 multiplicado por 10 elevado a 2, 
es decir, por 100, Recuérdese que 10 ele- 
vado a un número positivo «n» es igual a 
un uno. seguido por n ceros, y que 10 ele- 
vado a un número negativo, «-M», eS 
igual a cero, coma, n-1 ceros y un uno. 
Así, 10 elevado a 3 es 1000 y 10 elevado 

a -3 es 0,001. 

De igual manera que lo hemos defini- 
do para el sistema decimal de numera- 
ción, podemos definir un sistema de 
coma flotante para el sistema binario, y 
es precisamente en esta forma como se 
emplea en numerosas computadoras y 
en los traductores de los lenguajes de 
programación. 


El programa 
Q Wordstar 


ORDSTAR es uno de 
los procesadores de 
textos más extendi- 
dos del mercado. La 
razón de esta fama 
está basada en dos 
puntos principales: 


— Es un programa 
que está implementado en una gran va- 
riedad de ordenadores, lo cual facilita su 
difusión, hasta haberse convertido casi 
en un estándar. Específicamente existe 
para todos aquellos ordenadores que 
tengan sistema operativo CP/M o 
MS/DOS. 


— Es muy versátil, disponiendo de una 
gran cantidad de comandos y órdenes 
con las que modificar y editar un texto lo 
que resuelve casl todos los problemas y 
formatos que se pueden presentar a la 
hora de crear un texto. 


Una de las principales ventajas del 
WORDSTAR es el “formateo en pantalla”, 
o lo que es lo mismo, el texto que esta- 
mos editando en la pantalla tiene el mis- 
mo aspecto que el que saldrá al impri- 
mirse en papel por la impresora, y cual- 
quier cambio que hagamos en el texto se 
verá reflejado de inmediato en la panta- 
lla id el efecto real que produce 
en él. 


APLICACIONES 


TRATAMIENTO DE TEXTOS 


Otra característica importante, aunque 
común a la mayoría de los procesadores 
de texto, es el "WORD WRAP”, que permi- 
te escribir un texto sin preocuparse de 
dónde termina cada línea, ocupándose 
el procesador de pasar la palabra que 
se está escribiendo a la línea siguiente si 
ésta no cabe en la línea, reajustándola 
para que ocupe toda la longitud entre 
los márgenes. 


El Wordstar también permite escribir 
textos muy largos, ya que el almacena- 
miento del texto mientras se está editan- 
do se realiza en el disco, estando el ta- 
maño del documento sólo limitado por la 
capacidad disponible en el disco. 


Además de los comandos comunes a 
los procesadores de texto, dispone de 
una gran cantidad de funciones como: 
funciones de manejo de bloques, bús- 
queda y sustitución, paginación automá- 
tica del texto, varios tipos de justifica- 
ción, tabuladores decimales, varios tipos 
de letra en impresora, etc. 


=] 
Ñ 


'D Estructura del Wordstar 


MS 


Las funciones del WORDSTAR están divi- 
didas en menús que agrupan funciones 
similares, cuya estructura general pode- 
mos ver en la figura 1. 


MENU SIN 
ARCHIVO 


Ejecución Apertura 
de otros de un Clerre del 
programas o archivo archivo en 
comandos edición 
globales 
de archivo MENU 
PRINCIPAL 
DE EDICION 


MENU DE MENU DE MENU MENU DE 
FORMATO IMPRESION RAPIDO BLOQUES 


* Menú sin archivo 


Nada más empezar con el programa 
entramos en el “MENU SIN ARCHIVO”, en 


MENU 


Comandos Preliminares 
L Cambiar unidad disco estándar 
F Dir, de disco arch. no (Sl) 
H Fijar nivel ayuda 
Comandos Abrir Archivo 
D Abrir archivo documento 
N Abrir archivo no docum. 


p 


SIN ARCHIVO 
Comandos Archivo 


IMPRIMIR arch. 
E RENOMBRAR arch, 


O COPIAR arch. 
Y BORRAR arch. 


el cual podemos realizar una serie de ac-. 
clones globales sobre los archivos de los 
documentos. 


Comandos Sistema 


R Ejec. programa 
X SALIR al sistema 


Opciones WordStar 
M Ejec. MallMerge 
Ss Ejec. CorreciStar 


Fig. 2. 


a) Comandos preliminares 


Estos comandos nos permiten estable- 
cer el nivel de ayuda y en qué lectora de 
discos vamos a abrir un fichero. 


b) Comandos de apertura de archivo 


Con estas órdenes especificamos al 
WORDSTAR cuál va a ser el archivo con el 
que vamos a trabajar, abriendo un docu- 
mento ya existente para corregirlo o 
creando uno nuevo, 


c) Comandos de manejo global de ar- 
chivos 


Estos comandos permiten imprimir, re- 
nombrar, coplar o borrar un archivo cual- 
quiera del disco. 


d) Comandos varios 


Con estas aplicaciones podemos rea- 
lizar una serle de tareas no relacionadas 


directamente con los documentos, como 
ejecutar un programa externo o acabar 
la sesión de manejo del WORDSTAR, esto 
es, salir de la aplicación. 


* Menú principal de edición 


Una vez abierto un archivo en el menú 
anterior, pasamos a este menú, con el 
cual vamos a escribir el texto permitien- 
do una serie de comandos para mover- 
nos dentro y realizar borrados e insercio- 
nes. 


También a partir de este menú tendre- 
mos acceso a los otros menús que nos 
permitirán realizar todas las funciones 
avanzadas del WORDSTAR. 


En el menú principal podemos distin- 
guir las siguientes partes. 


MENU 
Movimiento del cursor Borrar 
25 car. izda. 7D car. dcha. 6 car. 
“A pal. izda. “F pal. dcha. DEL car iz 
“E lín. arr. “X lín. abajo “1 pal dch 
Deslizar: “Y línea 
”Z línea abajo “W línea arr. 
7C pant. arr. “R pant. abajo 


A:PEPET PAG. 1 LIN. 1 COL 01 
PRINCIPAL 


INSERTAR SI 


Otros menús 


(sólo desde pral.) 
“3 Ayuda 


Varios 


“| Tab. “B Recomp. 
“Y INSERTAR SI/NO 


”L Bus./sust. otra “Q Rápido 
RETORNO fin párrafo 0 Pantalla 
N Insertar RETORNO “K Bloques 
“UY Cancelar comando ”P Impresión 


Fig. 3. 


a) Comandos de desplazamiento del 
cursor 


Con estos comandos podemos llevar el 
cursor a cualquier parte del texto para vi- 
sualizarlo o realizar modificaciones. 

Permiten borrar caracteres, palabras o 
líneas del texto. 


b) Comandos varios 


Aquí se incluyen la mayoría de los co- 
mandos generales para modificar y 
corregir un texto, cómo reformar un 
párrafo, insertar caracteres en una posi- 
ción, tabuladores, etc. 


MENU 


H Mostrar/fijar nivel ayuda 

B_ Recomp. párrafo (CONTROL-B) 

E Ind. en colum. más a derecha 
D Comandos punto, contr. impr. 

| Indice de comandos 


R Regleta 


DE 


Ss Línea estado 


M Márgenes y tabs. 
P Poner marcas 
V Mover texto 


c) Acceso a otros menús 


Estos comandos permiten acceder a 
los restantes menús dentro del modo de 
edición. 


Los menús a los cuales podemos acu- 
dir son: 


1. Menú de ayuda 


Con este menú podemos tener en pan- 
talla una ayuda rápida de cualquier co- 
mando del WORDSTAR, gracias a la cual 
no tendremos necesidad de recurrir al 
manual para consultar alguna duda. 


AYUDA 


Otros menús 
(desde menú pral.) 
“J Ayuda “K Blog, 
“Q Rápido “P Impr, 
70 Pantalla 
ESPACIO le lleva 
al menú principal. 


Flg. 4. 


2. Menú de manejo de bloques 


El menú de bloques permite realizar 
una serie de comandos relacionados 
con bloques de texto, como mover, co- 


MENU DE 


pilar, borrar o almacenar el bloque. Tam- 
bién permite el manejo de documentos 
completos con funciones de Impresión, 
almacenamiento en disco, etc. 


BLOQUES 


Salvar archivo Operac. bloques Operac. Archivos Otros menús 
S Salv y contin. B Princ. K final R Leer Pimprim. (desde menú pral.) 
D Salv—listo H Mostrar sí/no O Copiar E renomb. “3 Ayuda “K Blog. 
X  Salv y salir C. Copiar y borrar J Borrar “Q Rápido “P Impr. 
Q Abandonar arch vd Mover W grabar Operac. de disco “0 Pantalla 


Poner marcas 


Columna sí (NO) 
0-9 Ver o no 0-9 


ESPACIO le lleva 
al menú principal 


L Cambiar disco act. 
F-  Directoro sí (NO) 


Fig. 5. 


3. Menú rápido en el menú principal, como movimiento 
con saltos más grandes, supresión (e) 
borrado, búsqueda y sustitución de pala- 


bras, repetición de órdenes, etc. 


Este menú permite realizar rápidamen- 
te alguna de las funciones que aparecen 


MENU 
Borrar 


RAPIDO 
Varios 


Movimiento de cursor Otros menús 


S lado. izdo. D lado dcho. Y lín. der | F Buscar texto (desde menú pral.) 
E prin. pant Xfondo pant. DEL lín iz A Buscar y sustit. me Ayuda “K Blog. 
R prin. arch  C final arch. L Buscar falta ort. 7Q Rápido “P Impr. 
B prin. blog. Kfinal bloque Q Repetir comando o “0 Pantalla 

Z abajo W arr. 0-9 marcas ref. tecla hasta que ESPACIO le lleva 

P previo V últ. búsqueda o bloque se pulse espacio al menú principal. 


Fig. 6. 


4. Menú de impresión como pausa de la impresión, salto entre 


líneas, y también con los efectos espe- 


Este menú contiene los comandos rela- 
cionados con el control de la impresora, 


MENU DE 


ciales de impresión, como negrilla, sub- 
rayado, etc. 


IMPRESION 


Otros menús 
(desde Menú pral.) 


Cambios impresión 
A Paso alternativo 


Efectos especiales 
(princ. y final) (una vez de cada) 


B Negr. D Doble| H Sobreimpr. carác. N Paso estándar “J Ayuda “K Blog. 
S Subrayado O Esp. irrompible C Pausa en impresión “Q Rápido  “P Impr. 
X Tachado F Espacio fantasma Y Cinta otro color “0 Pantalla 


ESPACIO le lleva al menú 
principal. 


Parches usuario 
Q(1) W(2) E(3) R(4) 


Fig. 7. 


G Borrado fantasma 
RET Sobreimp. linea 


Y Subíndice 
T Sobreíndice 


5. Menú de formato en pantalla un documento variando su formato. Per- 
mite elegir el tipo de Justificación, la po- 
sición de los tabuladores y márgenes, 


control de fin de página, etc. 


Los comandos agrupados en este 
menú permiten el control del aspecto de 


MENU 
Funciones línea 


PANTALLA 
Más cambiadores 


Margen y tabs. Otros menús 


L Poner marg. izdo. C Centras texto J Justific. no (SI) E%] Ayuda “K Blog. 
R Poner marg. dcho. S Poner esp. línea Y Vari-tabs no (SI) “Q Rápido  “P Impr. 
X Liberar márgenes H Ay. guión no (si) 20 Pantalla 


ESPACIO le lleva al menú 
principal. 


| Fij. N Borr. tab. 
G Tab. párrafo 
F Regleta des. lín. 


Cambiadores 
W Trans. pal. no (Si) 
T Reg]. lín. no (SI) 


E Guión aut. sí (NO) 
D Ver impr. no (SI) 
P Sep. pág. no (SÍ) 


Fig. 8. 


Aparte de todos los comandos accesi- 
bles por medio de los menús para el con- 
trol del formato del texto, existe una se- 
rie de órdenes que van incluidas dentro 
del texto y que nos permiten controlar al- 
gunas características de la impresión 
como el formato general de la página, 
que incluye márgenes superior e inferior, 


e izquierdo y derecho. Estos comandos, 
aunque vayan incluidos en el texto, no se 
imprimen y sólo sirven para controlar la 
impresión. 

Para que el WORDSTAR reconozca estos 
comandos, todos ellas van precedidos 
por un punto (.). Y tienen que estar en 
una línea cada uno, sin más texto detrás. 


¡PASCAL 


AMOS a comentar un 
detalle un poco deli- 
cado de las estructu- 
ras IF-THEN-ELSE; si no 
se ve muy claro aho- 
ra, no hay que alar- 
marse, pues es del 
tipo de cosas que se 
van entendiendo con la práctica. 


if Alto then 


if Bueno then 


else 


if Listo then 


else 


Al llegar al primer ELSE de todos, el 
compilador sobreentiende que corres- 
ponde al último IF sin ELSE, es decir, a «if 
Bueno...»; al llegar al segundo ELSE, el úl- 
timo IF sin ELSE que queda es «if Alto...» y, 
por tanto, le corresponde. 


if Alto then 
begin 


end 
else 


(x Si alto, mirar si es bueno X) 


writeln (”Es alto y bueno”) 
writeln (”Es alto pero no bueno”) 


else (X Si no es alto, mirar si es listo x) 


writeln ("No es alto, pero es listo”) 


writeln (*No es alto ni listo”) 


if Bueno then writeln (”Es alto y bueno”) 


writeln (*No es alto”) 


LA ESTRUCTURA IF-THEN (continuación) 


En el último programa de ejemplo vi- 
mos cómo se podían poner estructuras IF 
dentro de estructuras IF. En estas situacio- 
nes, si el compilador llegase a la palabra 
reservada ELSE, supondría que corres- 
ponde a la última estructura IF que no la 
tuviera todavía. Por ejemplo: 


Si quisiésemos tener una estructura IF 
simple dentro de otra con ELSE, podria- 
mos hacer lo siguiente: 


ss PASCAL 


Utilizando una secuencia de una sola 
instrucción (lo que en principio podría 
parecer absurdo), las palabras BEGIN y 
END han hecho de «paréntesis» para así 
forzar a que ELSE corresponda a la prime- 
ra estructura IF. 


'D La estructura REPEAT 


Hay ocasiones en que se necesita re- 
petir la ejecución de una cierta instruc- 
ción hasta que se cumpla una condición 
dada. Para ello se dispone de la estruc- 
tura REPEAT. Empecemos con un ejemplo: 


program Repite; 
var Cuenta: integer; 


begin 
Cuenta:= 03 
writeln (”Cuenta= ”,Cuenta); 


repeat 
Cuenta:= Cuenta + 1 
until Cuenta > 5; 


writeln (*Cuenta= *,Cuenta); 
end. 


SI ejecutamos este programa, en la 
pantalla del ordenador aparecerá: 


Cuenta= O 


Cuenta= 6 


REPEAT Cuenta:=Cuenta+1 


Repetir Cuenta:=Cuenta+ 1 


La instrucción a repetir PUEDE SER DE 
CUALQUIER TIPO, simple o estructurada. 


Cuando la instrucción es una secuen- 
cla, como aquí hay dos palabras reser- 
vadas, REPEAT y UNTIL, por delante y de- 


La estructura REPEAT se compone de las 
palabras reservadas REPEAT y UNTIL, la ins- 
trucción a repetir escrita entre ellas, y, en 
último lugar, la condición por la que se 
debe terminar con las repeticiones y pa- 
sar a lo siguiente. 


Durante la ejecución del programa, al 
llegarse a la estructura REPEAT se ejecuta 
la instrucción que alberga, tras lo cual se 
pasa a evaluar la condición que hay tras 
la palabra reservada UNTIL. Si el resulta- 
do es TRUE, se pasa a lo que hubiera a 
continuación, pero si fuera FALSE, se vol- 
vería a ejecutar la Instrucción anterior y 
a evaluar la condición, etc., hasta que 
en algún momento, por fin, el resultado 
fuese TRUE. 


Por tanto, la primera vez que se ejecu- 
ta la instrucción. Cuenta: = Cuenta + 1, la 
varlable Cuenta, que valía 0, pasa a va- 
ler 1. Tras eso, el resultado de la expre- 
sión Cuenta > 5 es, por supuesto, FALSE, 
por lo que se volverá a ejecutar Cuenta: = 
= Cuenta + 1 (Cuenta valdrá entonces 2), 
a evaluar Cuenta > 5, etc. 


Por fin, llegará un momento en que 
Cuenta valdrá 5; tras ejecutarse Cuenta: = 
= Cuenta + 1, pasará a valer 6 y enton- 
ces al evaluarse la Cuenta > 5 el resul- 
tado será TRUE, por lo que se pasará a la 
instrucción WRITELN que hay a continua- 
ción. Traduciendo del inglés resulta todo 
muy claro: 


UNTIL Cuenta > 5 


hasta que Cuenta mayor que 5 


trás de ella, no hace falta poner BEGIN y 
END para delimitarla. Por tanto, la o las in- 
trucciones a repetir se escriben una de- 
trás de otra separadas por punto y coma 
entre las palabras REPEAT y UNTIL. Probe- 
mos un programa parecido al anterior: 


program RepiteEscribe; 
var Cuenta: integer; 


begin 
Cuenta:= 0; 


repeat 
writeln (*Cuenta= *,Cuenta); 
Cuenta:= Cuenta + 1 

until Cuenta > 5 


end. 


Cuenta= 
Cuenta= 
Cuenta= 
Cuenta= 
Cuenta= 
Cuenta= 


program Pidelnicial; 


var 
Inicialz char; 
EsLetra: boplean; 


begin 


if not EsLetra then 


until EsLetra; 


end. 


Gracias a la estructura REPEAT, se pedi- 
rá la inicial una y otra vez, hasta que sea 
correcta. 

Se ha utilizado la variable EsLetra por- 
que, como la corrección de la letra hay 
que analizarla para avisar en su caso (es- 


repeat (% Repetir pregunta hasta respuesta buena %) 
writeln (*” Inicial? ”); 


readin (Inicial); 
EsLetra:= (Inicial >= *?A”) and (Inicial <= ED 


writeln (” Imposible, repita.”) 


writeln("Letra= *”,Inicial) 


A las situaciones en que un conjunto de 
instrucciones se repite una y otra vez se 
les llama «bucles de programa». 


La condición de salida del bucle (o 
sea, la que decide si hay que seguir re- 
pitiendo o no) puede ser cualquier ex- 
presión que dé un resultado de tipo 
BOOLEAN. 


El conjunto formado por la palabra RE- 
PEAT, la o las instrucciones, la palabra UN- 
TIL y la expresión lógica es a su vez una 
instrucción estructurada (cuya ejecucción 
consiste en repetir las que contiene has- 
ta que se cumpla la condición) y, por 
tanto, se le aplica todo lo dicho hasta el 
momento sobre éstas. 


Con REPEAT podemos controlar los erro- 
res al teclear datos mejor que como lo hi- 
cimos en el programa Secuencia: 


tructura IF), si guardamos el resultado de 
la comparación en ella se evita tener 
que repetirla tras UNTIL. . 


Hay que tener en cuenta dos importan- 
tes aspectos de la estructura REPEAT: 
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1. Si el bloque de instrucciones a re- 
petir no afectara para nada a la condi- 
ción de salida, podríamos tener un «bu- 
cle infinito»: 


repeat 
writeln (Cuenta)3 
Cuenta: =Cuenta+1 
until 2=3 


La condición de salida (2=3) nunca se 
cumple y por más que se repitan una y 
otra vez las dos instrucciones del bucle, 
nunca se cumplirá, con lo que la ejecu- 
ción del programa no avanzará nunca: 
tenemos un bucle infinito. (Por clerto, si 
en algún momento se deseara tener un 
bucle infinito deliberadamente, lo mejor 
es escribir REPEAT ... UNTIL FALSE.) 

2. La condición de salida (la expre- 
sión BOOLEAN) se evalúa DESPUES de la 
ejecución de la o las instrucciones del 
bucle. Por ello, aunque el valor fuera TRUE 
ya desde un principio, siempre se ejecu- 
tarán las instrucciones al menos una vez: 


Cuenta: =10; 

repeat 
writeln (Cuenta); 
Cuenta: =Cuenta+l 

until Cuenta > 5 


Con estas Instrucciones aparecería 10 
en la pantalla, aunque la condición para 
no seguir repitiendo el bucle es que 
Cuenta sea mayor que cinco. 


WHILE Cuenta <= 5 


Mientras 


Es decir, entre las palabras reservadas 
WHILE y DO se escribe la condición de 


Cuenta menor o Igual que ! 


Para los casos en que se deba compro- 
bar la condición de salida ANTES de eje-: 
cutar las instrucciones del bucle una sola 
vez, se dispone de la estructura WHILE, 
que veremos a continuación. 


O La estructura WHILE 


Esta estructura es similar a la instruc- 
ción REPEAT, con dos diferencias: 


1. La expresión que controla si se 
debe seguir con las repeticiones o no, se 
evalúa ANTES de ejecutar las instruccio- 
nes del bucle. 


2. Se sale del bucle cuando la conal- 
ción deja de cumplirse, es decir, cuando 
el resultado de la expresión de control es 
FALSE. 


Veamos otro ejemplo para ¡ilustrar esto: 


program EjemploWhilejz 
var Cuenta: integer; 


begin 
Cuenta:= 0; 


while Cuenta <= 5 do 
begin 

writeln (*Cuenta= ”,Cuenta);3 

Cuenta:= Cuenta + 


Este programa actúa igual que Repl- 
teEscribe. Una vez más, la traducción del 
Inglés resulta clarificadora. 


(la instrucción) 


control (una expresión cuyo resultado 
sea de tipo BOOLEAN) y tras todo ello, la 


instrucción a repetir, que puede ser cual- 
quiera, estructurada o no (en el ejemplo 
es una secuencia). 

Durante la ejecución del programa, al 
llegarse a una estructura WHILE se evalúa 
la condición, y si el resultado fuera TRUE, 
se pasaría a ejecutar la instrucción a re- 
petir. Tras ello, se volvería a evaluar la 
condición y a ejecutar la instrucción 
caso de que el resultado hublese sido 
nuevamente TRUE, etc., hasta que llega- 
se un momento en que el resultado fuera 
FALSE, en cuyo caso se continuaría la 
ejecución del programa con la Instruc- 
ción que hublese a continuación de la 
estructura. 

Por ello, si en el ejemplo se cambiara 
la instrucción Cuenta: = 0 por Cuenta: = 
10, nunca se llegaría a ejecutar el bucle, 
pues ya la primera vez el resultado de la 
condición sería FALSE. 

Nuevamente la estructura en su conjun- 
to es toda ella una instrucción estructu- 
rada. 


NOTA: Si se desea profundizar en estas 


program PotenciasDeDos; 


var 
N, Tope 
Error, 

CabeComoEntero: boolean; 


s integer; 


begin 
Ni= 2; 


repeat 

Errori= (Tope < 0)3 
until not Error; 
CabeComoEntero:= true; 
while (N <= Tope) 


begin 
writeln (N:6)3 


end; 


writeln (*Se acabó.”) 
end. 


(kx CabeComoEntero sirve para indicar si al pasar a la 

siguiente potencia nos saldremos de los límites INTEGER %) 

(£ 2 es la primera potencia %*) 

(kx Pedir límite hasta que sea córrecto: X*) 
write (*"Límite: ?)3 readin (Tope); 


(x Error sí límite negativo X*) 
if Error then writeln ("No vale. Repita.”) 


and CabelomoEntero do 


CabeComoEntero:= (N <= MaxInt div 2); 
(x Si es TRUE, el siguiente valor es <= que MaxInt X*) 


if CabeComoEntero then N:= N x 2 
(k Cada potencia es igual al doble de la anterior. Xx) 
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cuesitones se puede observar que la ins- 
trucción WHILE equivale a una combina- 
ción de IF y REPEAT: 


WHILE condición DO instrucción 
Y p 


(«mientras se dé la condición haz la ins- 
trucción») equivale a: 


condición THEN 
REPEAT 
instrucción 


UNTIL NOT condición 


(o sea, «si se da la condición, repite la 
instrucción hasta que no se dé»). 

Para terminar, veamos un programa 
que calcula y presenta todas las poten- 
clas de dos menores que un número 
dado: 
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El programa lo que tiene que hacer es 
sacar la primera potencia (2) y calcular 
la siguiente (4); tras esto, debe sacar la 
última calculada (4) y calcular la siguien- 
te (8). Todo este proceso debe REPETIRSE 
hasta alcanzar el tope o no poder seguir 
debido a las limitaciones inherentes al 
tipo INTEGER utilizado. Si Tope fuera 1, no 
se debería sacar ni la primera potencia, 
de ahí el empleo de WHILE en vez de RE- 
PEAT. 


Se ha utilizado la variable CabeCo- 
moEntero para evitar calcular un valor 
que se salga de los límites admitidos 
para los números enteros. 

Como ejercicio, podríamos modificar 
el programa para obtener las potencias 
de tres (o mejor, utilizar una constante 
declarada en lugar de 2 para hacerse el 
mínimo de cambios cada vez). Asimismo, 
podríamos utilizar una estructura REPEAT y 
ver la diferencia cuando Tope valga 1. 


Introducción 


P/M es un sistema 
operativo monousua- 
rio y monotarea 
orientado inicialmen- 
te a equipos basados 
en los microprocesa- 
dores Intel 8080 y 
8085, así como Zilog 


PA 


2-80. 

CP/M son las iniciales de Control Pro- 
gram for Microprocessors (programa de 
control para microprocesadores). Fue es- 
crito por Gary Kildall en 1973, cuando tra- 
bajaba para la compañía Intel, al verse 
en la necesidad de trabajar con discos 
flexibles y no tener ningún programa que 
controlase algunas interacciones entre 
el microprocesador y los disquetes. La 
compañia Intel rechazó el proyecto de 
Kildall de continuar desarrollando este 
incipiente sistema operativo, por lo que 
fundó su propia empresa (la que hoy es 
Digital Research Corporation). 

En 1976 Zilog lanza al mercado el ml- 
croprocesador Z-80, y Kildall crea para 
éste la versión 1.4 de CP/M, que es la pri- 
mera versión industrial del programa. 
Esta versión podía trabajar en sistemas 
que tuvieran sólo 16 Kbytes de memoria 
central, ocupando muy poca de esa me- 
moria. 

El éxito obtenido por el microprocesa- 
dor Z-80 hizo que CP/M se hiciera muy 
popular. Al mismo tiempo, la biblioteca 
de programas creados para este sistema 
operativo iba en aumento, lo que tam- 
bién influyó para que los constructores 
de equipos adoptasen CP/M como siste- 
ma operativo para sus máquinas, ya que 
ello significaba disponer para las mismas 
de gran cantidad de software nada más 
sacarlas al mercado. 

En la actualidad, CP/M es el sistema 
operativo indiscutible para equipos ba- 
sados en microprocesadores de 8 bits. En 
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el ámbito de los 16 bits, sin embargo, se 
ha visto totalmente superado por el 
MS/DOS, en gran parte por la adopción 
de este último por parte de IBM para su 
IBM-PC. 


O Estructura de CP/M 


CP/M se divide en 3 módulos principa- 
les: 


— BIOS (Basic Input Output System): Es 
el programa que interactúa directamen- 
te con el hardware de la máquina. Ma- 
neja la consola (teclado y pantalla), el 
disco, la impresora y cualquier otro dis- 
positivo periférico conectado al ordena- 
dor. 


— BDOS (Basic Disk Operating System): 
Es el módulo encargado del manejo del 
disco en lo relativo a ficheros. Controla el 
directorio de ficheros, permite la ubica- 
ción dinámica de espacio, etc. 

— CCP (Console Command Proces- 
sor): Es un intérprete de comandos, y sir- 
ve como Interface o “mediador” entre el 
usuario y el resto del sistema operativo. 
lee las instrucciones tecleadas por el 
usuario y dirige a los demás módulos 
para la realización de las acciones perti- 
nentes. 


Una visión por capas de CP/M sería la 
representada por la figura 1: 


Usuario 


A Estructura por capas de CP/M. 
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Otra parte fundamental de CP/M, aun- 
que no es un programa, es la TPA (Transit 
Program Area) o área de programas tran- 
sitorios. Es la zona de memoria donde 
CP/M conserva los programas cargados 
desde disco, con sus datos correspon- 
dientes. 

Para ver cómo se instala CP/M en me- 
moria RAM, supongamos una memoria 
de 64 Kbytes (que es lo típico). En las di- 
recciones más bajas se cargan los pará- 
metros del sistema (rutina de arranque, 
etcétera). Luego viene la TPA, que es lo 
que más espacio ocupa (mientras mayor 
sea ésta, mayor espacio libre tiene el 
usuario para sus programas). Por último, 
en las direcciones más altas se carga el 
CCP, el BDOS y el BIOS. 


Byte 65935 
4 K-8 K | 


| 
(Funciones de E/S) 
BDOS 
(Localización del 
espacio en disco) 


CCP (Intérprete de 
comandos) 


TPA 
(Programas y 
datos del 
usuario) 


Le 
K 


mw 
AR 
e 


64 K 
RAM 


Parámetros del 


sistema Byte 0 


l IN Mapa de memoria típico de CP/M. 


Comandos del CP/M 


Al igual que MS/DOS, ¡CP/M tiene algu- 
nos comandos internos que están siem- 
pre en memoria RAM, en la zona ocupa- 
da por el CCP. 


Estos son los siguientes: 


— DIR: Visualiza por pantalla el direc- 
torio de un disco. 

— ERA: Borra un fichero almacenado 
en disco. 

— SAVE: Almacena en disco el conte- 
nido de un fichero que está en memoria. 

— TYPE: Visualiza por pantalla el con- 
tenido de un disco. 


— REN: Cambia el nombre de un fiche- 
ro en disco. 


— USER: Define áreas de usuario en el 
directorio. 


Los comandos externos de CP/M resl- 
den en disco en forma de ficheros con la 
extensión “.COM”, y se cargan en la zona 
más baja de la TPA cuando se les invoca. 
Algunos de estos comandos son los si- 
guientes: 


— PIP: Es un programa de intercambio 
entre periféricos. Realiza las funciones 
básicas de copia, carga, impresión y 
combinación de ficheros. 


— S$TAT: Proporciona diversa informa- 
ción sobre el espacio ocupado en disco 
y la asignación de los dispositivos. 


— LOAD: Carga ficheros en código 
hexadecimal y produce ficheros ejecuta- 
bles. 


— SUBMIT: Carga en memoria un fiche- 
ro de comandos para procesarlos en 
modo “batch”. 


— SYSGEN: Inicializa un disquete y gra- 
ba el CP/M en él. 


— ED: Es un editor de líneas, útil en la 
creación y modificación de ficheros. 


Familia CP/M 


Bajo el nombre de CP/M realmente se 
engloba a toda una familia de sistemas 
operativos y versiones, nacidas todas 
ellas de un tronco común, pero adapta- 
das cada una a distintos entornos y siste- 
mas microinformáticos. 

Básicamente, la familia CP/M se com- 
pone de los siguientes miembros: 


— CP/M 80: Versión 'monousuario y 
monotarea para sistemas basados en los 
microprocesadores de 8 bits 8080, 8085 
y Z-80. 


— CP/M 86: Análoga a la anterior, 
pero para los microprocesadores de 16 
bits 8088 y 8086. 


— CP/M 68K: Versión adaptada al mi- 
croprocesador MCó68000. 


— CP/M 86 concurrente: Versión multi- 
tarea del CP/M 86. 


— MP/M 80 y MP/M 86: Versiones mul- 
tiusuario del CP/M 80 y del CP/M 86, res- 
pectivamente. 
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